Uses
CRT;
var
n:longint;
begin
clrscr;
readln(n);
if n mod 10=5 then
write('Yes')
else
write('No');
readkey
end.
Похожие записи/страницы:
- Умножение по Аль-Хорезми, в ROW - 1 число,в COL - 2 число - Pascal(Паскаль)
- Работа с очередью: каждая операция создание, удаление, добавление,показ элементов очереди разделены на отдельные…
- Дано целое число N (меньше 1), являющееся числом Фибоначчи: N = FK. Найти целое число K — порядковый номер числа…
- Дана последовательность из n неотрицательных целых чисел. На каждом шагу эти числа упорядочивают по возрастанию…
- Читать m груп(2≤m≤10) по n штук(4≤n≤50) в групе вещественвених чисел в фиксированом формате(k позиций (6≤k≤15)…
- Программа. Дано натуральное число. Проверить, является ли это число простым - Pascal(Паскаль)
- составить программу возведения натурального числа в квадрат учитывая следующие закономерности- Pascal(Паскаль)
- Дано натуральное число найти число получаемое удалением числа а.например дано число 12321342 а число а:=2 и…