Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
6 декабря 2022 19:46
942
Запишите на языке паскаль программу которая для произвольного натурального двузначного числа определяет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
Остались вопросы?
Еще вопросы по категории Информатика
Что будет напечатано в результате выполнения следующего фрагмента кода? s = '20192020' print(s[2] + s[4])...
Какова мощность алфавита,с помощью которого записано сообщение , содержащие 2048 символов , если его объем составляет 1.25 Кбайта...
Дан фрагмент программы. Чему будет равно значение переменной a после выполнения алгоритма? a = 12 for i in range(2): a -= 3...
Отметьте все виды памяти с произвольным доступом. дисковая память оперативная память (ОЗУ) постоянная память (ПЗУ) память на магнитной ленте памят...
Чем отличаются полное ветвление от неполного ?...