Помогите программу составить для решение задач. Задать целое число и определить кратно ли оно 10 через Turbo Pascal
Program abc;
var a:integer;
begin
Writeln(Введите число);
Readln(a);
if a mod 10=0 then Writeln(Кратно)
else Writeln(Не кратно);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
