Вопрос по информатике:
Составьте алгоритм решения задачи и представьте его любым удобным Вам способом (на естественном языке, на псевдокоде/алгоритмический язык, в виде блок-схемы или на языке программирования Pascal)
1. С клавиатуры вводятся три целых числа. Определите количество положительных чисел в этом наборе.
2. С клавиатуры вводится целое число n. Вычислите сумму S=1+2+3+...+n.
3. С клавиатуры вводится целое число N. За ним последовательно вводятся данные о росте N учащихся класса. Определите средний рост учащихся всего класса.
4. Вводится расстояние L в сантиметрах. Выясните, сколько в нём полных метров. Выведите это количество.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 27.03.2016 19:08
- Информатика
- remove_red_eye 7727
- thumb_up 34
Ответы и объяснения 2
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.
- 28.03.2016 18:22
- thumb_up 13
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.
- 29.03.2016 20:37
- thumb_up 27
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.