Ответы
Ответ дал:
0
Извини конечно но это с паскалем можно решить только. вот если что
4)
var a, s: integer;
begina:=1;
while a<>0 do begin
read(a);
if (a mod 3 = 0)and(a<>0) then s:=s+1;
end;
writeln(s);
end.
4)
var a, s: integer;
begina:=1;
while a<>0 do begin
read(a);
if (a mod 3 = 0)and(a<>0) then s:=s+1;
end;
writeln(s);
end.
Ответ дал:
0
это какое?
Ответ дал:
0
Язык программирования? Паскаль
Ответ дал:
0
задача №4
Вас заинтересует
7 лет назад
10 лет назад
10 лет назад
10 лет назад