напишите пожалуйста программу, ПОЖАЛУЙСТА, БУДУ ОЧЕНЬ ВАМ БЛАГОДАРНА
по программе Паскаль
Приложения:
![](https://st.uroker.com/files/31e/31eeb1d368bd7c890c9b03789e78765b.jpg)
Ответы
Ответ дал:
1
Ответ:
var a,s,k,p:integer;
begin
k:=0;
p:=1;
s:=0;
begin
while a<>100 do begin
readln(a);
if (a mod 2 = 0) then
k:=k+1;
if (a<0) then
s:=s+a;
if (a >=5) and (a <= 15) then
p:=p*a;
end;
end;
writeln(k, ' ', s, ' ',p);
end.
LiliaPonomareva21:
спасибо
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад