Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, n, s : integer;
begin
write('введите число n=');
readln(n);
s: =0;
i: =2;
while i< =n do
s: =s+i;
i: =i+2
end;
write('сумма четных чисел =', s);
readln
end.
var i, s : integer;
for i: = 10 to 99 do
if i mod 5 = 0 then s: =s+i;
writeln('сумма двузначных чисел, кратных 5 =', s);
ответ 138 номер последнего
решение 1024/8+10=128+10=138
1 байит= 8 бит
б,в,г,е - лцд остальное к трубке
Популярные вопросы