Ответы
Ответ дал:
0
begin
var
x,a:integer;
write('Напишите число: ');
readln(x);
writeln(x);
a:= 10 div x;
if (a>=10) then
writeln('Число кратное десяти')
else
write('Число не кратно десяти');
end.
var
x,a:integer;
write('Напишите число: ');
readln(x);
writeln(x);
a:= 10 div x;
if (a>=10) then
writeln('Число кратное десяти')
else
write('Число не кратно десяти');
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад
10 лет назад