Составьте программу выводящую true если высказывание является истинным и false в противном случае

Var
a,b,c:real;
d: boolean;
begin
writeln (‘Введите строну А: ‘);
readln(a);
writeln (‘Введите строну B: ‘);
readln(b);
writeln (‘Введите строну C: ‘);
readln(c);
if (a=b) then d:=true
else d:=false;
writeln (d);
end.

Нет комментариев

Var a,b:real;
begin
writeln(‘Введите 1 сторону.’);
readln(a);
writeln(‘Введите 2 сторону.’);
readln(b);
if a=b then writeln(‘TRUE’) else writeln(‘FALSE’);
end.

4 комментария:

Var a,b:real;beginwriteln(‘Введите 1 сторону.’);readln(a);writeln(‘Введите 2 сторону.’);readln(b);if a=b then writeln(‘TRUE’) else writeln(‘FALSE’)end.

Тысяча извинений. Не кажется ли Вам, что надо использовать тип переменной boolean?? ну в смысле по условию задачи.

Я не привык 🙂 Ты не с питона пришел случайно ? 🙂

нет. нет. просто я думал надо «ture» или «false» выводить не как текст, а как значение переменной. хотя и как текст в принципе тоже можно. так даже проще.

Информатика 10 класс (Урок№14 — Кодирование текстовой информации.)

Источник: reshimne.ru

Составить программу, печатающую значение true, если указанное высказывание является истинным, и false в противном случае:

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.