Меню сайта

Задача №10

Дано число. Определить, оканчивается ли данное число на цифру 7.


Program If_10-

var a,b:integer-

Begin

writeln (‘Введите число’)-

readln (b)-

a:=b mod 10-

if (a=7) then writeln (‘Число оканчивается на — 7’) else writeln (‘Число не оканчивается 7’)-

Readln-

end.

Категория: Разветвляющиеся программы | Дата: 10.01.13

Меню раздела
Блок