Решить задачи в паскале.

1) В двузначное число вписать ноль в середину и получить трехзначное число

2) Задано двузначное число. Чему равна первая цифра числа?

Question

Информатика

Андреич

20 сентября, 02:37

Решить задачи в паскале.

1) В двузначное число вписать ноль в середину и получить трехзначное число

2) Задано двузначное число. Чему равна первая цифра числа?

+1

Ответы (2)

Знаете ответ на вопрос?

Вукол · Answer 1

Program dvyzna4;

var i:integer;

begin

repeat

writeln ('Введите число=') ; readln (i) ;

until (i>=10) and (i<=99) ;

writeln ('1-ая цифра=', i div 10) ;

writeln ('Трехзначное=', i div 10,'0', i mod 10) ;

end.

Степанида · Answer 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.

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

Решить задачи в паскале.

1) В двузначное число вписать ноль в середину и получить трехзначное число

2) Задано двузначное число. Чему равна первая цифра числа?