Срочно! Дано трехзначное число. Если сумма цифр этого числа ...

Question

Срочно! Дано трехзначное число. Если сумма цифр этого числа ...

Женя

Срочно!

Дано трехзначное число. Если сумма цифр этого числа превышает 15, то вывести эту сумму. Иначе вывести произведение цифр этого числа.

Необходимо решение на языке Паскаль. Заранее спасибо!

Есть ответ

18.12.2022

188

Ответ

Answer 1 · 18.12.2022

var a: integer;

s,s1: integer;

begin

readln(a);

s:=(a div 100)+((a mod 100) div 10)+((a mod 100) mod 10);

s1:=(a div 100)*((a mod 100) div 10)*((a mod 100) mod 10);

if s>15 then writeln(s) else writeln(s1);

end.

Срочно! Дано трехзначное число. Если сумма цифр этого числа ...

Ответ

var a: integer; s,s1: integer; begin readln(a); s:=(a div 100)+((a mod 100) div 10)+((a mod 100) mod 10); s1:=(a div 100)*((a mod 100) div 10)*((a mod 100) mod 10); if s>15 then writeln(s) else writeln(s1); end.

var a: integer;

s,s1: integer;

begin

readln(a);

s:=(a div 100)+((a mod 100) div 10)+((a mod 100) mod 10);

s1:=(a div 100)((a mod 100) div 10)((a mod 100) mod 10);

if s>15 then writeln(s) else writeln(s1);

end.