5. определите и выведите на экран числа от 100 до 500, которые делятся на 8 и 11 одновременно.

DaVinci002 DaVinci002    3   17.09.2019 00:30    0

Ответы
Liliya35381 Liliya35381  04.08.2020 09:52
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
range(100,500).Where(x->(x mod 8=0) and (x mod 11=0)).Println();
end.
ПОКАЗАТЬ ОТВЕТЫ
сайнорбой сайнорбой  04.08.2020 09:52
Var
  i:integer;

begin
  for i:=100 to 500 do
    if i mod 88 = 0 then Write(i,' ')
end.

Результат
176 264 352 440
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика