дано двузначное число, дописать к нему цифру k в конец и в начало. В Паскаль. Пожалуйста, помогите. Завтра последний день сдачи...
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
// дано двузначное число, дописать к нему цифру k в конец и в начало.var x,y:word;
begin
writeln('Введите двухзначное число');
readln (x);
writeln('Введите цифру k');
readln (y);
x:=(x*10+y)+y*1000;
writeln (x);
end.
var x,y:word;
begin
writeln('Введите двухначное число');
readln (x);
while (9>x) or (x>99) do
begin //проверка на двузначночть числа
writeln('Вы ввели не двузначное число попробуйте еще раз');
readln (x);
end;
writeln('Введите цифру (от 0 до 9) k');
readln (y);
while y>9 do
begin //проверка на то что введена цифра
writeln('Вы ввели не цифру попробуйте еще раз');
readln (y);
end;
x:=(x*10+y)+y*1000;
write
end.