Регистрация
olga88888888888888
30.12.2020 13:58
Информатика
Есть ответ 👍

Дайте код очень За фигню - бан!

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

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

MaxRozBerg
MaxRozBerg
4,8(73 оценок)

Как не приемливо ты  написал *бан*

Объяснение:

MaximVolkov14
MaximVolkov14
4,5(20 оценок)
Var  x, y, z, k: integer; begin  readln(x, y, z); k: =0;   if (x mod 3 = 0) then begin inc(k); writeln(x, ' кратно трем'); end;   if(y mod 3 = 0) then begin inc(k); writeln(y, ' кратно трем'); end;   if (z mod 3 = 0) then begin inc(k); writeln(z, ' кратно трем'); end;   if (k =0) then writeln('переменных, кратных трем, не обнаружено! '); end.

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