Вывести на экран все числа от 10 до 2030 которые заканчиваются на 11. Паскаль
71
ОТВЕТЫ
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.
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.
241
Отв. дан
Neganap
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Диодор
Записать таблицу в режиме отображения значений. ...
2019-05-23 08:27:59
Тимофей
Составить алгоритм для вычисления суммы чисел от 1 до ...
2019-05-23 08:21:35
Кирсан
Диски,рисунок,флеш-память,DVD,компьютер.Что относится к текстовой,а что к образной информации? ...
2019-05-23 08:17:11
Герасим
Алг цкл S, k нач S:=0 k:=0 нц пока ...
2019-05-23 08:16:48