Предмет: Информатика, автор: Katemurmur

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

Ответы

Автор ответа: igorvoloc
0
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.
Похожие вопросы
Предмет: Математика, автор: Сайдет