Регистрация
Даяна131106
12.11.2021 13:28
Информатика
Есть ответ 👍

Информация -, способы передачи -, какая бывает информация.

291
449
Посмотреть ответы 1

Ответы на вопрос:

bogdan1001b
bogdan1001b
4,4(17 оценок)

program z1;

var i:integer;

begin

for i:=20 to 50 do

if (i mod 3 = 0) and (i mod 5 <> 0) then write (i:4)

end.

Объяснение:

Перебираем числа от 20 до 50 через цикл и проверяем их на соответствие условию.

Популярно: Информатика