Предмет: Информатика,
автор: Bomnh
Циклы в Паскале.
1)На клавиатуре вводятся 10 чисел. Составьте программу, определяющую произведения чисел, меньших 5.
2) На клавиатуре вводятся 10 чисел. Составьте программу, определяющую сумму чисел, меньших 25.
Ответы
Автор ответа:
0
1)
var n, i, s, k:integer;
begin
s:= 1;
k:=0;
for i:=1 to 10 do begin
readln(n);
if n < 5 then begin
s:=s*n;
k:=1;
end;
if k=1 then write(s) else write(0);
end.
2)
var n, i, s:integer;
begin
s:= 0;
for i:=1 to 10 do begin
readln(n);
if n < 25 then begin
s:=s+n;
end;
write(s);
end.
Похожие вопросы
Предмет: Русский язык,
автор: guliahisamut
Предмет: Русский язык,
автор: snsnkk
Предмет: Английский язык,
автор: schuralescha
Предмет: Математика,
автор: marina3084
Предмет: Геометрия,
автор: незнайка736