Помогите программу составить для решение задач. Задать целое число и определить кратно ли оно 10 через Turbo Pascal

Question

Информатика

Емельяша

6 декабря, 18:20

Помогите программу составить для решение задач. Задать целое число и определить кратно ли оно 10 через Turbo Pascal

+5

Ответы (1)

Знаете ответ на вопрос?

Ванютя · Answer 1

Program abc;

var a:integer;

begin

Writeln ('Введите число') ;

Readln (a) ;

if a mod 10=0 then Writeln ('Кратно')

else Writeln ('Не кратно') ;

end.