Лучшие помощники
- Megamozg 2190 б
- Matalya1 1800 б
- DevAdmin 1690 б
- arkasha_bortnikov 860 б
- Dwayne_Johnson 845 б
6 декабря 2022 19:46
730
Запишите на языке паскаль программу которая для произвольного натурального двузначного числа определяетa) сумму и произведение его цифр
б) число,образованное перестановкой цифр исходного числа
2
ответа
Var
n,d,e:integer;
begin
Write('Введите двухзначное число: '); Read(n);
d:=n div 10; e:=n mod 10;
Writeln('Сумма цифр равна ',d+e,', произведение ',d*e);
Writeln('Число, полученное перестановкой цифр ',10*e+d)
end.
Тестовое решение:
Введите двухзначное число: 29
Сумма цифр равна 11, произведение 18
Число, полученное перестановкой цифр 92
n,d,e:integer;
begin
Write('Введите двухзначное число: '); Read(n);
d:=n div 10; e:=n mod 10;
Writeln('Сумма цифр равна ',d+e,', произведение ',d*e);
Writeln('Число, полученное перестановкой цифр ',10*e+d)
end.
Тестовое решение:
Введите двухзначное число: 29
Сумма цифр равна 11, произведение 18
Число, полученное перестановкой цифр 92
0
·
Хороший ответ
8 декабря 2022 19:46
А)
Program sum_pr;
Var
sum,pr,a1,a2,a : integer;
BEGIN
read(a);
a1:=a div 10;
a2:=a mod 10;
sum:=a1+a2;
pr:=a1*a2;
write(sum,pr);
END.
б)
Program per;
Var
per,a1,a2,a : integer;
BEGIN
read(a);
a1:=a div 10;
a2:=a mod 10;
per:=a2*10+a1;
write(per);
END.
Program sum_pr;
Var
sum,pr,a1,a2,a : integer;
BEGIN
read(a);
a1:=a div 10;
a2:=a mod 10;
sum:=a1+a2;
pr:=a1*a2;
write(sum,pr);
END.
б)
Program per;
Var
per,a1,a2,a : integer;
BEGIN
read(a);
a1:=a div 10;
a2:=a mod 10;
per:=a2*10+a1;
write(per);
END.
0
8 декабря 2022 19:46
Остались вопросы?
Еще вопросы по категории Информатика
Задача 2: Пирожки Рядом с домом Пети расположена пекарня, в которой пекут вкусные пирожки с ягодами. Пете очень нравятся три вида пирожков: с бруснико...
Перевести число 2048 кб в Мб...
Вася задумал число от 1 до 100. Нужно отгадать это число за наименьшее число попыток, задавая Васе вопросы, на которые он отвечает <<да>>...
У исполнителя Альфа две команды, которым присвоены номера: 1. прибавь 1 2. умножь на b (b-неизвестное натуральное число;b>=2) Выполняя первую и...
Обмен информацией между компьютерными сетями, в которых действуют разные сетевые протоколы, осуществляется с использованием: шлюзов файл-серверов...
Все предметы