Предмет: Информатика,
автор: Katemurmur
Дано натуральное число. Верно ли, что первая цифра не превышает 6? (Нужна программа Паскаль!!!!!)!!!!!!!!!!
Ответы
Автор ответа:
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.
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.
Похожие вопросы
Предмет: Математика,
автор: Сайдет
Предмет: Биология,
автор: dshakrasko
Предмет: Английский язык,
автор: Аноним
Предмет: Математика,
автор: toliksedin