Информатика: (Pascal abc) Дано трехзначное число, определить сумму, произведение, средне арифметическое значение цифр этого числа.
Поменяйте местами первую и третью цифру этого числа.
Поменяйте местами первую и третью цифру этого числа.
Ответ
2.5/5
(2 оценки)
2
Мозг
Отвечающий
begin
writeln('Введите трёхзначное число');
read(x);
sum:=x mod 10 + x div 100 + x div 10 mod 10;
p:=(x mod 10) * (x div 100) * (x div 10 mod 10);
z:=(x mod 10 *100) + (x div 10 mod 10 *10) + (x div 100);
writeln('Сумма цифр =',sum);
writeln('Среднее арифметическое цифр =',sum/3);
writeln('Произведение цифр =',p);
writeln('После перестановки 1 и 3 цифр =',z);
end.