Предмет:
ИнформатикаАвтор:
márquezoj7lАвтор:
kristopherАвтор:
thomascollinsprogram sd;
var i : integer;
s : longint;
begin
s := 1;
i := 10;
repeat
if (i mod 13 = 0) and (i mod 2 <> 0) then
s := s * i;
i:= i+1;
until i>99;
writeln('proizvedenie = ',s);
end.
Автор:
zenaДобавить свой ответ
Предмет:
АлгебраАвтор:
toribiogillОтветов:
Смотреть
Предмет:
Английский языкАвтор:
gunner98Ответов:
Смотреть
Предмет:
Русский языкАвтор:
papamiddletonОтветов:
Смотреть