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

Question

Информатика

Иваша

11 мая, 10:22

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

+2

Ответы (1)

Знаете ответ?

Анюта · Answer 1

Program abc;

var a:integer;

begin

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

Readln (a) ;

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

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

end.