Задано число от 0 до 99, если число двузначное, то вывести первую цифру числа, если...

Question

Задано число от 0 до 99, если число двузначное, то вывести первую цифру числа, если однозначное, то само число. Паскаль​

Answer 1

Ответ:

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.

Объяснение:

Comments

объясни, пожалуйста, что означает INP в начале, [s1]. Так же два end не может быть, так как end означает конец программы

---

За end извиняюсь, не увидел второго бегин, однако за s1 и INP не понял

---

a:='slovo'
a[3] = o т.к s - 1 l - 2 o - 3
INPUT, можно подставить за место него любое значение т.к это банальный вывод во writeline