Регистрация
Бота20081
20.07.2022 00:36
Информатика
Есть ответ 👍

Составить программу в паскаль: дано трехзначное число определить делится ли оно на 3.если да - вывести результат деления,если нет вывести фразу -"число не кратно 3".

222
422
Посмотреть ответы 3

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

Kpoper772
Kpoper772
4,6(61 оценок)
Program prog; uses crt; var a: integer; begin write('введите  трехзначное число а = '); readln(a); if a mod 3 = 0 then writeln('результат = ', a/3) else  writeln('число не кратно 3'); end.
nastyacrew
nastyacrew
4,4(61 оценок)
Можно так. кусок программы.. if n mod 3 = 0 then writeln('число делится'); else writeln('не делится'); (это не по признаку делимости)
MAXXB
MAXXB
4,4(44 оценок)

program pr1; uses crt; var a,b,c,p,s: real; beginclrscr; readln(a,b,c); p: =(a+b+c)/2; s: =(p-a)*(p-b)*(p-c); s: =s*p; s: =sqrt(s); writeln(s); end.

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