fkn+antitotal

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

Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и числа 7, если же введённое число больше 15, то цикл необходимо завершить.

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

В примере №2 есть код, который описывает программу угадывания числа с трех попыток. Перепишите этот код так, чтобы:
Можно было бы задать угадываемое число (пусть его вводит пользователь)
Если пользователь все же угадал число - напишите в сообщении о победе с какой именно попытки ему это удалось.

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

Модицифируйте код:

▶

var i:integer;
begin
  for i:=1 to 10 do
  begin
     writeln(777);
     break;
  end;
 
  readln();
end.  

-- таким образом, чтобы на 4-ом витке на экран было выведено число 777, а на 5-ом произошел выход из цикла (при этом строчку for i:=1 to 10 оставьте без изменений).

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

Напишите процедуру, которая выводит на экран сумму трёх целых чисел.

program  u14z2;

var a, b, c: integer;

procedure sum (x,y,z:integer);
begin
  writeln(x+y+z);
end;

begin
 readln (a,b,c);
 sum(a,b,c);
 readln();
end.
                        

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

Напишите функцию, которая возвращает сумму трёх целых чисел.

program  u14z1;

var a, b, c: integer;

function sum(x,y,z:integer): integer;

begin
result:=x+y+z;
end;

begin
  readln(a,b,c);
  write(sum(a,b,c));
  readln();
end.              

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

Пользователь вводит 4 целых числа, выведите на экран не более трех из этих чисел, которые делятся нацело на 4 (т.е. нужно вывести те числа, которые делятся на 4, но не более трех штук).

Решение:

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

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

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

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

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

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

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

begin
  writeln('vvedite chislo a');
  readln(a);
  writeln('vvedite chislo b');
  readln(b);
   writeln('vvedite chislo c');
  readln(c);
  if (a > b)and(a<c) then
    writeln('da')
  else
    writeln('not');

  readln();

end.                       

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

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

program g9z4;
 var a,b:integer;
begin
  writeln('vvedite chislo a');
  readln(a);
  writeln('vvedite chislo b');
  readln(b);
  if (a > b) then
    writeln(12)
  else
    writeln(888);

  readln();

end.