Дано натуральное число. Верно ли, что первая цифра не превышает 6? (Нужна программа Паскаль!!!!!)!!!!!!!!!!
Дано натуральное число. Верно ли, что первая цифра не превышает 6? (Нужна программа Паскаль!!!!!)!!!!!!!!!!
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы