Дано двузначное число, дописать к нему цифру k в конец и в начало. В Паскаль. Пожалуйста,...

Question

Дано двузначное число, дописать к нему цифру k в конец и в начало. В Паскаль. Пожалуйста, помогите. Завтра последний день сдачи...

Answer 1

// дано двузначное число, дописать к нему цифру k в конец и в начало. 
var x,y:word;
begin 
writeln('Введите двухзначное число'); 
readln (x); 
writeln('Введите цифру k');   
readln (y); 
x:=(x*10+y)+y*1000; 
writeln (x);
end.

Comments

Я чуть чуть подправил, так будет правелнее

---

// дано двузначное число, дописать к нему цифру k в конец и в начало.
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

---

writeln (x);
end.

---

Спасибо Вам огромное!

---

Всегда пожалуйста