Как найти первые две цифры натурального числа в паскале?
Program al;
var n:integer;
begin
writeln(n=);
readln(n);
if (n >9) and (n<100) then writeln(n);
if (n > 99) and (n<1000) then writeln(n div 10);
if (n >1000) and (n<10000) then writeln(n div 100);
if n>10000 then writeln(n div 1000);
readln;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
