помогите, пожалуйста в Паскале программу написать
Дано двузначное число. Приписать к нему цифру k в начало и конец. Например, если к числу 35 приписать цифру 1, то получим 1351.
Дано двузначное число. Приписать к нему цифру k в начало и конец. Например, если к числу 35 приписать цифру 1, то получим 1351.
More Questions From This User See All
Answers & Comments
Verified answer
var
n, k, r: Integer;
begin
Write ('Введите двузначное число: ');
ReadLn (n);
if (n < 10) or (n > 99) then begin
Writeln ('Число не двузначное!');
Exit;
end;
Write ('Введите приписываемую цифру от 1 до 9: ');
ReadLn (k);
if (n < 1) or (n > 9) then begin
Writeln ('Ошибка ввода!');
Exit;
end;
r := k * 1000 + n * 10 + k;
Write ('Результат = ', r);
end.