Ответ:
var
p,r,i,k,o,l,u,h,a:integer;
s:string;
begin
writeln ('INP');
readln (k); / вводим цифру
if (k >= 10) then begin // проверка на двухзначность
Str(k,s); // перевод в строку
writeln (s[1]); // вывод
end
else writeln (k); // если не больше 10
readln
end.
Объяснение:
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
var
p,r,i,k,o,l,u,h,a:integer;
s:string;
begin
writeln ('INP');
readln (k); / вводим цифру
if (k >= 10) then begin // проверка на двухзначность
Str(k,s); // перевод в строку
writeln (s[1]); // вывод
end
else writeln (k); // если не больше 10
readln
end.
Объяснение:
a[3] = o т.к s - 1 l - 2 o - 3
INPUT, можно подставить за место него любое значение т.к это банальный вывод во writeline