fkn+antitotal

http://fkn.ktu10.com/?q=node/8539

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

http://fkn.ktu10.com/?q=node/8539

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

http://fkn.ktu10.com/?q=node/8539

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

http://fkn.ktu10.com/?q=node/8539

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

var a, b: integer;
begin
  writeln('vvedi 2 celih chisla');
  readln( a, b );
  if( a > b ) then
    writeln('max - ', a)
  else
    writeln('max - ', b);
  readln();
end.

http://fkn.ktu10.com/?q=node/8539

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

var A, B, C: integer;
begin
  A := 61;
  B := 31;
  C := 8;
  if( (A > 17) and (B > 17) and (C > 7) ) then
    writeln('Yes')
  else
    writeln('No');
  readln();
end.

http://fkn.ktu10.com/?q=node/8539

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

var A, B, C: integer;
begin
  A := 6;
  B := 3;
  C := 8;
  if( (A > B) and (A<C) ) then
    writeln('Yes')
  else
    writeln('No');
  readln();
end.       

http://fkn.ktu10.com/?q=node/8539

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

var a, b: integer;
begin
  a := 10;
  b := 18;
  if(a > b) then
    writeln('12')
  else
    writeln('888');
  readln();
end.  

http://fkn.ktu10.com/?q=node/8539

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

var a, b: integer;
begin
  a := 10;
  b := 8;
  if(a > b) then
    writeln('12');
  readln();
end.  

link

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

program lesson9_7;
var
  a, b, c, d, max1, max2: integer;
begin
  writeln('enter 4 number');
  readln(a, b, c, d);
  if(a > b) then
      max1 := a
  else
      max1 := b;
  if(c > d) then
      max2 := c
  else
      max2 := d;
  if(max1 > max2) then
      writeln(max1, ' - max number')
  else
      writeln(max2, ' - max number');
  readln();
end. 

link

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

program lesson9_6_3;
var
  a, b, c, x: integer;
begin
  writeln('enter 3 number');
  readln(a, b, c);
  if(a > b) then
      x := a
  else
      x := b;
  if(x > c) then
      writeln(x, ' - max number')
  else
      writeln(c, ' - max number');
  readln();
end.