Чи ділиться на 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.

Немає коментарів:

Дописати коментар