Var i,s: integer; begin s: =0; //сумматор обнуляем обязательно for i: =1 to 100 do if i mod 2=0 then s: =s+i; //узнаем четное ли число и записываем его в нашу сумму writeln('сумма четных чисел равна ',s); end; все что после // (два слэша) можно удалить, так пишутся комментарии в программе
Спасибо
Ответ дал: Гость
у текста, мощностью 64 символа (каждый символ несет 6 бит информации) в 1,2 раза инф. объем больше, чем у текста, мощностью 32 символа (каждый символ несет 5 бит информации).
Ответ дал: Гость
program mdd; uses crt; var i: longint; beginclrscr; for i: = 10 to 99 dobeginif i mod 13 = 0 then writeln(i); end; readkey; end.
Популярные вопросы