< >

составить программу для решения задачи:задай число,определите,кратно ли оно10

Ответы

Ответ дал: WinSagit
0

Pascal

 

var n:longint;

begin

read(n);

if n mod 10=0 then writeln('kratno') else writeln('net');

end.

Похожие вопросы
Русский язык
2 года назад
Разберите слово - НЕРАЗРЫВНО как часть речи.
Русский язык
2 года назад
Выписать слова,в которых есть мягкие согласные,рядом записать,сколько в них букв и сколько звуков.   Рысь,сорока,крот,олень,ворона,ель,крыльцо,волк,деньги.
Алгебра
7 лет назад
Решите уровнение 5у-8=2у-5
Химия
7 лет назад
помогите умоляю,надо решить любые 10
Алгебра
10 лет назад
Найти наибольшее и наименьшее значение функции: y=2x^3-12x+3 на отрезке [0;3]
Химия
10 лет назад
Вставить пропуски: В пределах одного периода с увеличением порядкового номера элемента металлические свойства ____________, а неметаллические__________________, так как заряды атомных
Геометрия
10 лет назад
Отрезки AB b AC лежат в различных гранях двугранного угла.Найдите величину угла, если AB=√61, AC=10 см, BC=7 см, а проекцией точек B и C на ребро двугранного угла является точка D, удаленная от точки
История
10 лет назад
Как афиняни называли управление всвоём полисе? Почему они считали эту форму правления наилучшей? Почему при этой форме правления развивалось красноречие?ОООООчень надо))))))))))))