Решить задачи в паскале. 1) В двузначное число вписать ноль в середину и получить трехзначное число2)Задано двузначное число. Чему равна первая цифра числа?
Решить задачи в паскале.
1) В двузначное число вписать ноль в середину и получить трехзначное число
2)Задано двузначное число. Чему равна первая цифра числа?
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Не нашли ответ?
Похожие вопросы