Циклы в Паскале.
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.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад