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

Question

Информатика

Иваша

17 июня, 07:07

Помогите программу составить для решение задач. Задать целое число и определить кратно ли оно 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.