fkn+antitotal

Задача 3 Урок 9:

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.
ПРИМЕЧАНИЕ: эта следующая задача базируются на том, что мы уже решали (см. задачи в конце урока).

Задача 5 урок 13.2

В некоем виртуальном пространстве есть виртуальные, опять же, ASCII-счеты, с 7-ю спицами по 10 костяшек на каждой, в сброшенном состоянии (условный ноль) они выглядят так:

---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++

Задание: визуализируйте на счетах введенное пользователем число.

Примеры:

Пользователь вводит: 7
Получаем:

Задача 2 Урок 9:

Сравните два числа, если первое больше второго, то выведите на экран "12", а если нет, то выведите на экран "888".

var a, b: integer;
begin
    a := 2;
    b := 3;

    if (a > b) then
        writeln('12')
    else
        writeln('888');

    readln();
end.

КОНСОЛЬ:

888

Задача 1 Урок 9:

Сравните два числа, если первое больше второго, то выведите на экран "12". (здесь нужно использовать неполную форму условного оператора)

var a, b: integer;
begin
    a := 4;
    b := 2;

    if (a > b) then
    writeln('otvet: 12');

    readln();
end. 

консоль:

otvet: 12

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

program Project3;
var a,b,c: integer;

begin
writeln(' vvedite celoe chislo pervoe');
readln(a);
writeln('vvedite celoe chislo vtoroe');
readln(b);
writeln('vvedite celoe chislo tretye');
readln(c);
if (b > 17) and ( c > 7)and (a > 17) then
writeln('da')
else writeln('net');
readln;

Результат компиляции

end.

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:С использованием логической операции and.

program Project6;
var a,b,c: integer;

begin
writeln(' vvedite pervoe celoe chislo');
readln(a);
writeln('vvedite vtoroe celoe chislo');
readln(b);
writeln('vvedite tretye celoe chislo');
readln(c);
if (a > b) and (a > c) then
writeln(a)
else if (b > c) and (b > a) then
writeln(b)
else
writeln(c);

О процессе против QR кодов

Группа жителей Воронежа оспаривает в суде указ губернатора об обязательном предъявлении QR-кодов в общественных местах на территории Воронежской области.

Приглашаем неравнодушных граждан присоединиться и стать соистцами по этому делу.

Ход дела

Основные моменты (подробнее см. в нашем Telegram-канале):

Пользователь вводит два числа, найдите из них максимальное.

program Project3;
var a,b: integer;

begin
writeln(' vvedite pervoe celoe chislo');
readln(a);
writeln('vvedite vtoroe celoe chislo');
readln(b);
if (a > b) then
writeln(' maksimalnoe a')
else;
if (b > a) then
writeln('maksialnoe b')
else;
readln();

end.

end.

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

program Project3;
var a,b,c: integer;

begin
writeln(' vvedite celoe chislo pervoe');
readln(a);
writeln('vvedite celoe chislo vtoroe');
readln(b);
writeln('vvedite celoe chislo tretye');
readln(c);
if (b > 17) and ( c > 7)and (a > 17) then
writeln('da')
else writeln('net');
readln;

end.