Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Локальная Я уверена в этом
1 кбайт=1024 байта
1 байт=8 бит
81920/8=10240 байт
10240/1024=10 кбайт
var i,s: integer;
begin
writeln('summa ');
for i: =100 to 999 do
if i mod 17 =0 then s: =s+i else s: =s+0;
writeln(s)
end.
Популярные вопросы