Составьте алгоритм решения задачи и представьте его любым удобным Вам способом (на естественном языке, на псевдокоде/алгоритмический язык, в виде
5-9 класс
|
блок-схемы или на языке программирования Pascal)
1. С клавиатуры вводятся три целых числа. Определите количество положительных чисел в этом наборе.
2. С клавиатуры вводится целое число n. Вычислите сумму S=1+2+3+...+n.
3. С клавиатуры вводится целое число N. За ним последовательно вводятся данные о росте N учащихся класса. Определите средний рост учащихся всего класса.
4. Вводится расстояние L в сантиметрах. Выясните, сколько в нём полных метров. Выведите это количество.
program task1;
var a, i, kol :integer;
begin
for i:= 1 to 3 do begin readln(a); if a > 0 then inc(kol); end; writeln(kol);
end.
program task2;
var n, result :integer;
function summa (x :integer) :integer; var i, sum :integer; begin for i:= 1 to x do sum:= sum + i; summa:= sum; end;
begin
readln(n); result:= summa(n); writeln(result);
end.
program task3;
var i, n, growth, sum, kol :integer; SrGrowth :real;
begin
readln(n); sum:= 0; kol:= 0; for i:= 1 to n do begin readln(growth); sum:= sum + growth; inc(kol); end; SrGrowth:= sum/kol; writeln(SrGrowth);
end.
program task4;
var l :integer;
begin
readln(l); l:= l div 100; writeln(l);
end.
1) var a1, a2, a3, s: integer;
begin
write('Введите первое число: ');
readln(a1);
write('Введите второе число: ');
readln(a2);
write('Введите третье число: ');
readln(a3);
if a1>0 then s:=s+1;
if a2>0 then s:=s+1;
if a3>0 then s:=s+1;
writeln(s);
end.
2)
Другие вопросы из категории
Ctrl+Shift+I
Ctrl+F
Ctrl+J
Ctrl+H
Ctrl+Shift+Esc
Ctrl+Shift+Delete
Читайте также
Найти гипотенузу треугольника.
Помогите пж, и поняятно пишите.
нуужно срочно до завтра!
Заранее большущее спасибо)
2.Составить блок - схему кипячения чайника.
3.Составить алгоритм сбора яблок в саду.Ваша задача сводится к тому,что необходимо собрать ведро яблок с земли.
4.Составьте алгоритм на формальном языке и блок - схему для решения следущего примера : y=5x+6,если х=3
алгоритм для решения задачи: Найти действительные корни квадратного уравнения вида ax^2+bx+c=0.