Решить задачи в паскале. 1) В двузначное число вписать ноль в середину и получить...

Question

Решить задачи в паскале.
1) В двузначное число вписать ноль в середину и получить трехзначное число
2)Задано двузначное число. Чему равна первая цифра числа?

Answer 1

1)
Var x:inreger;
Begin
readln(x);
x:=((x div 10)*100)+(x mod 10);
writeln(x);
End.

2)
Var x:integer;
Begin
readln(x);
x:=x div 10;
writeln(x);
End.

Answer 2

Program dvyzna4;
var i:integer;
begin
repeat
writeln('Введите число='); readln(i);
until (i>=10) and (i<=99);<br>writeln('1-ая цифра=',i div 10);
writeln('Трехзначное=',i div 10,'0',i mod 10);
end.