Дано трёхзначное число. Напишите программу на языке Паскаль, которые определяют: 1) является ли суммы его цифр двухзначным числом; 2) является ли произведение его цифр трехзначным числом; 3) больше ли это число произведение его цифр; 4) кратно ли пяти сумма его цифр; 5) кратно ли сумме его цифр на это число?

270

359

Посмотреть ответы 1

Ответы на вопрос:

koretstanya1

Информатика

4,6(75 оценок)

// pascalabc.net 3.1, сборка 1256 от 21.06.2016 begin var a: =readinteger('введите целое число, не превышающее 9: '); if a< 10 then writeln('s2=',range(a,10).select(i-> i*i).sum) else writeln('введенное значение больше 9') end. тестовое решение введите целое число, не превышающее 9: -7 s2=525