fkn+antitotal

Задача 8 Урок 9

Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований. Если:

сумма баллов Коли и Миши больше 20

или произведение баллов Пети и Миши меньше 55

--то тогда вывести в консоль сообщение о том, что ничья, в противном случае вывести сообщение, что победил Коля.

var a,b,c:integer;
begin
    readln(a,b,c); 
    if ((a+b)>20) or ((b*c)<55) then
        write('ничья')
    else
write('победил Коля')
end.

Задача 6 Урок 9

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

var a,b,c,d:integer;
begin
    readln(a,b,c,d);
        if (a>b) and (a>c) and (a>d) then
            write(a);
        if (b>a) and (b>c) and (b>d) then
            write(b);
        if (c>a) and (c>b) and (c>d) then
            write(c)
        else
            write(d)
end.

Задача 6 Урок 9

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

Решите тремя способами:

С использованием логической операции and.

Задача 5 Урок 9

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

var a,b:integer;
begin
    readln(a,b);
    if (a>b) then
        write (a,' максимальное')
    else
        write (b,' максимальное')
end.

Задача 4 Урок 9

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

var a,b,c:integer;
begin
    readln(a,b,c);
    if (a>17) and (b>17) and (c>7) then
        write('да')
    else
        write('нет')
end.

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

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

var a,b,c:integer;
begin
    readln(a,b,c);
    if (b<a) and (c>a) then
        write('да')
    else
        write('нет')
end.

при этом известно, что если s равно 1, то на экран должно вывестись только первое сообщение (а второе выводиться не должно), а если s не равно 1, но равно m, то второе (а первое выводиться не должно).
Но сейчас программа работает не так, исправьте это.

var m,s:integer;
begin
    writeln('Vvedite chislo S');
    readln(s);
    m:=1;
    if (s = 1) then
       writeln('soobchenie s=1')
    else if (m = 1) then
        writeln('soobchenie m=2');
    readln();
end.

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

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

var a,b:Integer;
begin
    readln(a,b);
    if (a>b) then
        write(12)
    else
        write(888)
end.

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

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

var a,b:Integer;
begin
    readln(a,b);
    if (a>b) then
        write(12)
end.

Урок 18

Решите предыдущую задачу:
Пользователь вводит в консоль строки вида (имя + произвольное число пробелов + балл):