Регистрация
nastyarudckina
31.07.2022 11:00
Информатика
Есть ответ 👍

Составте программу, которая в диопрзоне чисел от 1 до 50, кратные 3

193
254
Посмотреть ответы 2

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

7910066
7910066
4,8(43 оценок)
Var i: integer; begin for i: =1 to 50 do if (i mod 3)=0 then writeln ('число ',i, 'кратно трем') ; end.
lana770
lana770
4,6(57 оценок)
Program z; var t,u: integer; s,tr: real; begin writeln('введите скорость'); read(u); writeln('введите время'); read(t); writeln('введите трафик'); read(tr); s: =(u*t)/8388608; if s> 1 then tr: =s/tr; writeln('размер файла = ',s, ' гб'); writeln('оплата = ',tr, ' руб'); end.

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