Составить программу, печатающую значение true, если указанное высказывание является истинным, и false в противном случае:
Сумма цифр данного трехзначного числа N является четным числом.
Квадрат заданного трехзначного числа равен кубу суммы цифр этого числа.
Треугольник со сторонами a, b, c является равнобедренным.
Ответы
Ответ дал:
0
{ Ответ дан на языке Pascal }
//1-ая задача
PROGRAM Solution(INPUT, OUTPUT);
VAR
num: INTEGER;
n1, n2, n3: INTEGER;
BEGIN
WRITE('Введите 3-значное число: ');
READ(num);
n1 := (num DIV 100);
n2 := (num MOD 100 MOD 10);
n3 := (num MOD 100 DIV 10);
IF(n1 + n2 + n3) MOD 2 = 0
THEN WRITELN('Чётное')
ELSE WRITELN('Нечётное');
END.
//2-ая задача
PROGRAM Solution(INPUT, OUTPUT);
VAR
num: INTEGER;
n1, n2, n3: INTEGER;
BEGIN
WRITE('Введите 3-значное число: ');
READ(num);
n1 := (num DIV 100);
n2 := (num MOD 100 MOD 10);
n3 := (num MOD 100 DIV 10);
IF(num * num) = (n1 * n1 * n1) + (n2 * n2 * n2) + (n3 * n3 * n3)
THEN WRITELN('Равен')
ELSE WRITELN('Не равен');
END.
//3-я задача
PROGRAM Solution(INPUT, OUTPUT);
VAR
a, b, c: INTEGER;
BEGIN
WRITE('Введите a, b, c: ');
READ(a, b, c);
IF(a = b) OR (b = c) OR (c = a)
THEN WRITELN('Равнобедренный')
ELSE WRITELN('Не равнобедренный');
END.
//1-ая задача
PROGRAM Solution(INPUT, OUTPUT);
VAR
num: INTEGER;
n1, n2, n3: INTEGER;
BEGIN
WRITE('Введите 3-значное число: ');
READ(num);
n1 := (num DIV 100);
n2 := (num MOD 100 MOD 10);
n3 := (num MOD 100 DIV 10);
IF(n1 + n2 + n3) MOD 2 = 0
THEN WRITELN('Чётное')
ELSE WRITELN('Нечётное');
END.
//2-ая задача
PROGRAM Solution(INPUT, OUTPUT);
VAR
num: INTEGER;
n1, n2, n3: INTEGER;
BEGIN
WRITE('Введите 3-значное число: ');
READ(num);
n1 := (num DIV 100);
n2 := (num MOD 100 MOD 10);
n3 := (num MOD 100 DIV 10);
IF(num * num) = (n1 * n1 * n1) + (n2 * n2 * n2) + (n3 * n3 * n3)
THEN WRITELN('Равен')
ELSE WRITELN('Не равен');
END.
//3-я задача
PROGRAM Solution(INPUT, OUTPUT);
VAR
a, b, c: INTEGER;
BEGIN
WRITE('Введите a, b, c: ');
READ(a, b, c);
IF(a = b) OR (b = c) OR (c = a)
THEN WRITELN('Равнобедренный')
ELSE WRITELN('Не равнобедренный');
END.
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад