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

Question

Информатика

Женя

4 марта, 09:12

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

+2

Ответы (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.