Задание:
Написать программу, которая печатает True или False в зависимости от того, выполняются или нетзаданные условия: — квадрат заданного трехзначного числа равен кубу суммы цифр этого числа;
Решение:
var b: 100… 999; s: word; x, y, m, n: integer; begin writeln ('Введите трехзначное число'); readln (b); s: =(b mod 10)+(b mod 100) div 10)+(b div 100); //сумма цифр трехзначного числа if sqr (b)=sqr (s)*s then writeln ('True') else writeln ('False'); writeln ('Введите координаты х и у'); readln (x, y); writeln ('Введите m и n'); readln (m, n); if (x>m) and (x Знаете другой ответ?