fkn+antitotal

link

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

link

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

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

link

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

program lesson9_5;
var
  a, b: integer;
begin
  writeln('enter 2 number');
  readln(a, b);
  if((a > b)) then
      writeln(a, ' - max number')
  else
      writeln(b, ' - max number');
  readln();
end.   

link

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

program lesson9_4;
var
  a, b, c: integer;
begin
  a := 8;
  b := 7;
  c := 10;
  if((a > 17) and (b > 17) and (c > 7)) then
      writeln('yes')
  else
      writeln('no');
  readln();
end. 

link

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

program lesson9_3;
var
  a, b, c: integer;
begin
  a := 8;
  b := 7;
  c := 10;
  if((a > b) and (a < c)) then
      writeln('yes')
  else
      writeln('no');
  readln();
end.    

link

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

program lesson9_2;
var
  a, b: integer;
begin
  a := 6;
  b := 7;
  if(a > b) then
      writeln(12)
  else
      writeln(888);
  readln();
end.   

link

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

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

У вас есть число z=5. Пользователь вводит числа в цикле, если очередное введенное число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если меньше 15, то уменьшайте на 1. Цикл и программа должны завершиться, когда число z станет отрицательным.

Урок 11 задача 14

Как проходит обучение:

Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке, например для 14564 получим: 46541. (используйте опеции div и mod ).

урок 11 задача 13

Решение

program U11z13;

var i: integer;

begin    //46541
  i:= 10 div 10;
      write(i);
  i:= 16 div 4;
      write(i);
  i:= 15 mod 10;
      write(i);
  i:= 15 mod 9;
      write(i);
  i:= 20 div 5;
      write(i);
           //14564

  readln();

end.