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