fkn+antitotal

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

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

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

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

var
  a,b,c,d,max:integer;
begin
  writeln('Vvedite a,b,c,d: ');
  readln(a,b,c,d);
  writeln();
  if (a > b) and (a > c) and (a > d) then
  max:=a;
  if (b > a) and (b > c) and (b > d) then
  max:=b;
  if (c > a) and (c > b) and (c > d) then
  max:=c
  else
  max:=d;
  writeln(max);
  readln();
end. 

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

M раз выведете на экран числа от 1 до N с помощью вложенных циклов. Так чтобы в консоли было:
1......N
1......N
M раз

var
  i, j: integer;
  m, n: integer;
begin
  m:= 5;
  n:= 10;
  for i:= 1 to m do
     begin
       for j:=1  to n do
          write(j, ' ');
       writeln();
     end;
  readln();
end.

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

Выведете на экран числа от 1 до 5 два раза с помощью вложенных циклов. Так чтобы в консоли было:
1 2 3 4 5
1 2 3 4 5

var
  i, j: integer;
begin
  for i:= 1 to 2 do
     begin
       for j:=1  to 5 do
          write(j, ' ');
       writeln();
     end;
  readln();
end.

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

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

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

1) Первый способ

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

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

var
    a,b:integer;
begin
 writeln('Vvedite chisla a,b: ');
 readln(a,b);
 writeln();
 if (a>b) then
 writeln('Pervoe chislo bolshe')
 else
 writeln('Vtoroe chislo bolshe');
 readln();
end.  

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

Пользователь вводит массив целых чисел из 7 элементов. Найдите из них два самых больших числа и выведите их на экран.

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

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

var
   a,b,c:integer;
begin
  writeln('Vvedite a,b,c: ');
  readln(a,b,c);
  writeln();
  if ((a + b > 17) and (c > 7)) then
  writeln('True')
  else
  writeln('False');
  readln();
end. 

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

Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран.

var a : array [1..7] of integer;
    i, b, c : integer;
begin
  for i := 1 to 7 do
    begin
      writeln('vvedi chislo');
      readln(b);
      a[i] := b;
    end;
  c := a[1];
  for i := low(a) to high(a) do
    begin
      if(a[i]>=(c)) then
        c := a[i];
    end;
    writeln('max = ', c);
  readln();
end.  

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

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

var
   a,b,c:integer;
begin
  writeln('Vvedite a: ');
  readln(a);
  writeln('Vvedite b: ');
  readln(b);
  writeln('Vvedite c: ');
  readln(c);
  writeln();
  if (a > b) and (a < c) then
  writeln('True')
  else
  writeln('False');
  readln();
end.