Вывести на экран все чётные числа от 1 до 100 кратные 5

@Djelun · Регистрация: 06.12.2011

Студворк — интернет-сервис помощи студентам

Вывести на экран все чётные числа от 1 до 100 кратные 5.

@КонецСвета · 06.12.2011, 14:57

Pascal

uses crt;
var i: integer;
begin
writeln('Âñå ÷¸òíûå ÷èñëà îò 1 äî 100 êðàòíûå 5');
for i:=1 to 100 do
    begin
    if (i mod 2=0) and (i mod 5=0) then write(i,' ');
    end;
end.

@Djelun · 06.12.2011, 16:36 **[ТС]**

Большое спасибо

@Djelun 0 / 0 / 0 Регистрация: 06.12.2011 Сообщений: 9
		1
	Вывести на экран все чётные числа от 1 до 100 кратные 5 06.12.2011, 14:34. Показов 4613. Ответов 2 Метки нет (Все метки) Вывести на экран все чётные числа от 1 до 100 кратные 5. 0

@Djelun 0 / 0 / 0 Регистрация: 06.12.2011 Сообщений: 9
	06.12.2011, 16:36 [ТС]	3
	Большое спасибо 0

Опции темы

Вывести на экран все чётные числа от 1 до 100 кратные 5

Решение