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

Question

Информатика

Яким

14 февраля, 16:30

Дано натуральное число. Верно ли, что первая цифра не превышает 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.