Срочно.Помогите решить задачу по информатике
10-11 класс
|
var
a, b, a1, a2, b1, b2: integer;
begin
Writeln('Введите через пробел два целых двухзначных числа: ');
Readln(a, b);
a1 := a div 10; a2 := a mod 10;
b1 := b div 10; b2 := b mod 10;
Writeln(a1, b1, a2, b2, ' ', b1, a1, b2, a2)
end.
Тестовое решение:
Введите через пробел два целых положительных числа: 45 82
4852 8425
Другие вопросы из категории
Дан массив, состоящий из 10 произвольных чисел. Найти среднее геометрическое этих чисел.
Ответ запишите в виде строки из четырех символов: значений переменных K, L, M и N (в указанном порядке). Так, например, строка 1101 соответствует тому, что K = 1, L = 1, M = 0, N = 1.
в записи числа N цифра «2». Если имеется, то вывести True, если нет — вывести False.
Заранее спасибо :3
Читайте также
ько информации несет свод законов племени, если в нем 12 строк и в каждой строке по 20 символов?
2. количество нулевых элементов.