Помогите программу составить для решение задач. Задать целое число и определить кратно ли оно 10 через Turbo Pascal
Помогите программу составить для решение задач. Задать целое число и определить кратно ли оно 10 через Turbo Pascal
Гость
Ответ(ы) на вопрос:
Гостьprogram abc;
var a:integer;
begin
Writeln('Введите число');
Readln(a);
if a mod 10=0 then Writeln('Кратно')
else Writeln('Не кратно');
end.
Не нашли ответ?
Похожие вопросы