Выведи на экран большее из двух данных чисел. Запиши программу на языке Паскаль, выведи ответ на экран, если 1, 08784 и 2, 8924.

program qq;

var a,b: real;

begin

writeln ('Введите два числа.');

readln (a, b);

if a>b then writeln ('Наиболее из чисел: ', a:5:5)

else writeln ('Наибольшее из чисел: ', b:5:5);

end.

Объяснение:

Внимание! Цифры вводить через точку, а не через запятую. Лично у меня через запятую не считает.

Div - целая часть от деления  

Mod - остаток от деления.

(a mod 2 = 1) and (b mod 4 = 1)

A делённое на 2 до тех пор, пока остаток будет равным 1, то истинна и если B делённое на 4 до тех пор, пока остаток будет равным 1, то оно тоже истинно.

Подставим переменные и получим: (5 mod 2 = 1) и (b mod 4 = 1)

ответ: истинна.

not (a+b > c)

Так как Not - логическое отрицание, то (a+b < c)

Подставим переменные и получим: (5+9 < 0)

ответ: ложь.

(abs(a) = a) and (-b > -a)

abs(a) - возращает модуль числа A.

Подставим переменные и получим: (5 = 5) и (-9 > -5)

ответ: ложь.

not (a >= b)

Будет (a <= b)

Подставим переменные и получим: (5 <= 9)

ответ: истинна.

(c <> 0) or (sqrt(b) = a-2)

sqrt(b) - квадратный корень из числа B.

Подставим переменные и получим: (0 <> 0) или (3 = 5-2)

(b > sqr(a)) or (b div a >= 1)

Подставим переменные и получим: (9 > 2,24) или (9 div 5 >= 1)

ответ: истинна.

Var  a, d, n, i, otv: integer;

begin

  read(a,d,n);                                - ввод всех значений

  otv:=a;                                        - в переменную где будет храниться

  for i:=1 to n do                              ответ записываем начальный взнос

  begin

     a:=a+d;                                     - увеличиваем в цикле взнос

     otv:= otv + (a);                         - добовляем взнос к нашему ответу

  end;

  writeln(otv);                                 - выводим ответ

end.