Проверьте кратна ли сумма трех произвольных чисел, введенных с клавиатуры, в 15 р, числами 7 и 9 одновременно

114

128

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

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

Lizarainbowhi

Информатика

4,5(6 оценок)

Var a,b,c: integer; begin writeln('введите через пробел три числа'); read (a,b,c); if (15*(a+b+c) mod 7=0) and (15*(a+b+c) mod 9 =0) then writeln('кратна') else writeln ('не кратна') end.

Armatod

Информатика

4,7(83 оценок)

Код программы var s, ns: string; i: integer; begin readln(s); for i: =1 to length(s)-1 do if s[i]=' ' then ns: =ns+s[i-1]; if s[length(s)]< > ' ' then ns: =ns+s[length(s)]; write(ns); end. возникли вопросы? пиши в комментарии.