Предмет: Информатика,
автор: ЛоРеЛа
ИНФОРМАТИКА 8 КЛАСС.
ПОМОГИТЕ ПОЖАЛУЙСТА, ДАЮ 20 БАЛЛОВ!
Приложения:
Ответы
Автор ответа:
0
program a1;
var x1, sum:integer;
begin
sum:=0;
for x1:=1 to 100 do
if x1 mod 2=0 then sum:=sum+x1;
writeln(sum);
end.
beti32:
как?
да так! легко и просто !
Интересные вопросы
Предмет: Русский язык,
автор: qassuii
Предмет: Литература,
автор: Аноним
Предмет: Математика,
автор: meowmeow24062011
Предмет: Литература,
автор: машарипов
Предмет: Математика,
автор: обьевление