Предмет: Информатика,
автор: LeraRouch
дано двузначное число, дописать к нему цифру k в конец и в начало. В Паскаль. Пожалуйста, помогите. Завтра последний день сдачи...
Ответы
Автор ответа:
1
// дано двузначное число, дописать к нему цифру 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);
writeln('Введите цифру k');
readln (y);
x:=(x*10+y)+y*1000;
writeln (x);
end.
seleznev11:
Я чуть чуть подправил, так будет правелнее
// дано двузначное число, дописать к нему цифру 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
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.
end.
Спасибо Вам огромное!
Всегда пожалуйста
Похожие вопросы
Предмет: Окружающий мир,
автор: tihomolovaalisa
Предмет: Русский язык,
автор: маха158
Предмет: Английский язык,
автор: Аноним
Предмет: Другие предметы,
автор: sergey5259
Предмет: География,
автор: funny0