Информатика Архивный вопрос

Вывести на экран все числа от 10 до 2030 которые заканчиваются на 11. Паскаль

Нет комментариев

Ответы

Гость

Var
i: integer;
begin
for i:=10 to 2030 do
if ((i mod 10) = 1) and (((i div 10) mod 10)=1) then write (i, '; ');
end.

Нет комментариев