Составьте алгоритм решения задачи и представьте его любым удобным Вам способом (на естественном языке, на псевдокоде/алгоритмический язык, в виде блок-схемы или на языке программирования Pascal) 1. С клавиатуры вводятся три цел...
Составьте алгоритм решения задачи и представьте его любым удобным Вам способом (на естественном языке, на псевдокоде/алгоритмический язык, в виде блок-схемы или на языке программирования 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) var n, s, i: integer;
begin
write('Введите число n: ');
readln(n);
for i:=1 to n do
s:=s+i;
writeln(s);
end.
3) var n, s, i, k: integer;
begin
write('Введите число n: ');readln(n);
for i:=1 to n do begin
writeln('Введите рост ',i,' учащегося: ');
readln(k);
s:=s+k;
end;
writeln(s/i);
end.
4)var l, m: integer;
begin
write('Введите расстояние в сантиметрах: ');
readln(l);
m := l div 100;
write('Количество метров в ', l, ' сантиметрах = ', m);
end.
Не нашли ответ?
Похожие вопросы