В паскале дано число, если оно кратно 5,то умножить его ** 10. Написать программу.

Question

В паскале дано число, если оно кратно 5,то умножить его на 10. Написать программу.

Answer 1

Program a1;
Var a:integer
Begin
Writeln ('Введите число');
Readln(a);
If a mod 5 =0 then writeln (a*10);
End.