Чи ділиться на 5 і 10?
Для
введеного числа перевірити, чи ділиться воно на 5 і на 10.
Вхідні дані
У
першому рядку вводиться єдине число.
Вихідні дані
У
першому рядку виведіть Yes, якщо число
ділиться на 5, інакше виведіть No.
У другому рядку виведіть Yes, якщо число
ділиться на10,
інакше виведіть No.
Вхідні дані
Sample 1
17
Sample 2
2
Вихідні дані
Sample 1
No
No
Sample 2
No
No
program dilit;
var n : string;
a : integer;
BEGIN
readln(n);
a:=length(n);
if (n[a]='5') or (n[a]='0') then
writeln('Yes') else writeln('No');
if n[a]='0' then writeln('Yes') else writeln('No');
END.
Немає коментарів:
Дописати коментар