Ответы
Ответ дал:
0
Ответ:
1.
var a:Integer;
begin
Write('Введите целое положительное число ');
ReadLn(a);
if a mod 2 = 0 then Write(a/2) else
Write(a-3)
end.
2.
var i,s:Integer;
begin
for i:=10 to 99 do
if i mod 4 = 0 then s:=s+i;
Write(s)
end.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад
7 лет назад