Составить программу печатающую значение true

Составить программу печатающую значение true

Что ты хочешь узнать?

Ответ

Program Znanija;
var n, a, b, c, d:integer;

a:=n div 1000;
b:=n div 100 mod 10;
c:=n div 10 mod 10;
d:=n mod 10;

if (a+b)=(c+d) then
writeln("True");
else
writeln("False");

Сумма цифр данного трехзначного числа N является четным числом.
Квадрат заданного трехзначного числа равен кубу суммы цифр этого числа.
Треугольник со сторонами a, b, c является равнобедренным.

  • Попроси больше объяснений
  • Следить
  • Отметить нарушение

Stephaneremjuk01 18.03.2018

Что ты хочешь узнать?

Ответ

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.

"Данное четырехзначное число читается одинаково слева направо и справа налево"

  • Попроси больше объяснений
  • Следить
  • Отметить нарушение

ANТИ 27.10.2018

Что ты хочешь узнать?

Ответ

Проверено экспертом

  • Комментарии
  • Отметить нарушение

Ответ

function IsEqual(arg0 : Integer) : Boolean;

Читайте также:  Daemon tools lite не запускается
Ссылка на основную публикацию
Adblock detector