fkn+antitotal

Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований.
Если: сумма баллов Коли и Миши больше 20 или произведение баллов Пети и Миши меньше 55
--то тогда вывести в консоль сообщение о том, что ничья, в противном случае вывести сообщение, что победил Коля.

Ссылка

Решение

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

Ссылка

Решение

program U9Z7;
var a,b,c,d: integer;
    max2,max3,max4,max:integer;


begin
  Writeln('Vvedite 4 cisla:');
  readln(a,b,c,d);
  if (a>b) then
     max2:=a
  else
     max2:=b;
  if (max2 > c) then
     max3:=max2
  else
     max3:=c;
    if (max3 > d) then
     max4:=max3
  else
     max4:=d;

  max:=max4;
  Writeln('max chislo - ', max);
  readln();

end.             

Пользователь вводит три числа, найдите из них максимальное.
3. Без вложенных блоков (без and) -- запомнив максимум из двух в специальной переменной.

ссылка

Решение

Пользователь вводит три числа, найдите из них максимальное.
2. С вложенными блоками (без and).

ссылка
Решение

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

ссылка
решение

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

Ссылка
Решение

program U9Z5;

var a,b:integer;

begin
  Writeln('Vvedite chislo a ');
  Writeln('Vvedite chislo b ');
  readln(a,b);
  if (a > b) then
     write('a - max')
  else
      write('b -max');
  readln();
end.     

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

Ссылка
Решение

program U9Z4;

var a,b,c:integer;

begin
  a:=6;
  b:=4;
  c:=8;
  if (a > 17)AND(b > 17) AND (c > 7) then
     write('yes')
  else
      write('no');
  readln();
end.  

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

Ссылка
Решение

program U9Z3;

var a,b,c:integer;

begin
  a:=6;
  b:=4;
  c:=8;
  if (a > b)AND(a<c) then
     write('yes')
  else
      write('no');
  readln();
end. 

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

Ссылка

решение

program U9Z2;

var a,b:integer;

begin
  a:=8;
  b:=14;
  if (a > b) then
     write(12)
  else
      write(888);
  readln();
end.  

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

Ссылка:

Решение

program U9Z1;
 var a,b:integer;


begin
  a:=8;
  b:=6;
  if (a > b) then
     write(12);
  readln();
 end.