Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Дано трехзначное число определить является ли сумма его цифр двухзначным числом ,является ли произведение его чисел трехзначным числом, кратно ли сумма его цифр числу 3

Ответ оставил Гость

Var 
a,sum,pro:integer;
Begin 
write(Введите трёхзначное положительное число: ); 
readln(a); 
if (a<100) or (a>999) then write(Это не трёхзначное число. Перезапустите программу!) else Begin   
sum:= a mod 10 + a div 10 mod 10 + a div 100;   
pro:= a mod 10 * a div 10 mod 10 * a div 100;   
if (sum>9) and (sum<100) then Writeln(Сумма цифр числа ,a, - двухзначное число (,sum,)) else Writeln(Сумма цифр числа ,a, - не двухзначное число (,sum,));   
if (pro>99) and (pro<1000) then Writeln(Произведение цифр числа ,a, - трёхзначное число (,pro,)) else Writeln(Произведение цифр числа ,a, - не трёхзначное число (,pro,));   
if (sum mod 3) = 0 then write(Эта же сумма (,sum,) кратна трём) else write(Эта сумма (,sum,) не кратна трём); 
end;
End.