Дано натуральное число. Верно ли, что первая цифра не превышает 6? (Нужна программа Паскаль!) !

Question

Информатика

Ная

9 марта, 14:23

Дано натуральное число. Верно ли, что первая цифра не превышает 6? (Нужна программа Паскаль!) !

+3

Ответы (1)

Знаешь ответ?

Борислав · Answer 1

Program picaso; uses crt;

var s:string;

x, cod:integer;

begin clrscr;

write ('Vedite cislo: '); readln (s);

val (s[1], x, cod);

if x < 6 then writeln ('verno! : ', x,' < 6');

readkey;

end.