fkn+antitotal

• ВК: Цикл While в Паскале
• YouTube: Цикл While в Паскале

-- на момент добавления разбор относился к уроку по циклу while.

Пользователь вводит четыре числа, проверьте, что первое больше третьего и при этом одновременно второе меньше четвертого.

var
    A, B, C, D: integer;
    E: boolean;
begin
    writeln ('Dany chisla A, B, C, D: ont');
    writeln ('Dano uslovie: A > C AND B < D');
    writeln ('Vvedite celye chisla');
    readln (A, B, C, D);
    E := (A > C) AND (B < D);
    writeln (E);
    readln ();
end.

Даны три целых числа: A
, B
, C
. Проверить истинность высказывания: « Число A
и число B
больше 17, а C
> 7».

 var
    A, B, C: integer;
    D: boolean;
begin
    A := 20;
    B := 19;
    C := 6;
    D := (A AND B > 17) AND C > 7;
    writeln ('chislo A y B > 17, cislo C>7');
    writeln (D);
    readln ();
end.

Вернёт false, так какак две части утверждения при конъюнкции противоречат друг другу.

Даны три целых числа: A
, B
, C
. Проверить истинность высказывания: «Число A
находится между числами B
и C
».

var
    A, B, C: integer;
    D: boolean;
begin
    A := 5;
    B := 1;
    C := 7;
    D := (B < A) AND (A < C);
    writeln ('chislo A nahoditsi mejdu B y C');
    writeln (D);
    readln ();
end.

Возвращает True

Даны два целых числа: A
и B
. Проверить истинность высказывания: «Сумма чисел A
и число B
больше 12».

var
    A, B: integer;
    c: boolean;
begin
    A := 7;
    B := 13;
    c := (A+A) AND B>12;
    writeln ('Summa chisel A y chislo B > 12');
    writeln (c);
    readln ();
end.

Возвращает True

метод из хэлпера не доступен в cest-классе codeception для симфони, в чем может быть причина?
ошибка [RuntimeException] Call to undefined method

Возможное решение

Как методы из модулей, так и методы из хэлперов, должны быть явно подключены в конфиге

Пользователь вводит два значения, одно целое, а другое вещественное, проверьте больше ли первое число второго, выведя на экран надпись (как это делается в примерах выше).

var
    a: integer;
    b: real;
    c: boolean;
begin
    writeln ('vvedite chisla');
    readln (a);
    readln (b);
    c := a > b;
    writeln ('pervoe chislo > vtorogo: ', c);
    readln ();
end. 

Вернёт True

Сравните число 8 и число 9.55, выведите результат сравнения на экран.

var
    a: boolean;
begin
    a := 8<9.55;
    writeln (a);
end.

Получите от пользователя значений трех чисел -- два целых и одно вещественное и выведите на экран значение их суммы.

var
    a: integer;
    b: integer;
    c: real;
begin
    writeln ('vvedite chisla');
    readln (a);
    readln (b);
    readln (c);
    writeln (a+b+c);
    readln();
end.