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

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

Задать свой вопрос
2 ответа
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.
Program dvyzna4;
var i:integer;
begin
repeat
writeln('Введите число='); readln(i);
until (igt;=10) and (ilt;=99);
writeln('1-ая цифра=',i div 10);
writeln('Трехзначное=',i div 10,'0',i mod 10);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт