fkn+antitotal

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

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

var a, b, c, d, e, f: integer;
begin 
readln(a, b, c, d);
if (a>b) then 
  e:=a
else
  e:=b;
if (c>d) then
  f:=c
else
  f:=d;
if (e>f) then 
  writeln(e)
else
  writeln(d);
end.

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

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

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

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

Пользователь вводит два числа, найдите из них максимальное. (тут всё просто)

var a, b: integer;
begin
a:=8;
b:=0;
if (a>b) then
  write (a)
else
  write (b);
end.

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

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

var a, b, c: integer;
begin
a:=9;
b:=0;
c:=8;
if ((a>17) and (b>17) and (c>7)) then
  write ('да')
else
  write ('нет');
end.

Пользователь вводит целое число, если оно больше единицы, то выведите на экран все целые числа от этого числа до единицы (в обратном порядке), которые делятся на 5 без остатка. Иначе (если введённое пользователем число не больше единицы) сообщите об ошибке.

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

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

var a, b, c: integer;
begin
a:=8;
b:=0;
c:=4;
if (a>b) and (a<c) then
  write ('да')
else
  write ('нет');
end.

Задача 2 урок 9

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

var a, b: integer;
begin
a:=9;
b:=7:
if a>b then
  write ('12')
else
  write ('888');
end.

Задача 1 урок 9

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

var a, b: integer;
begin 
a:=4;
b:=2;
if a>b then
  write('12');
end.

Выведите на экран, все четные числа от 35 до 64.

var
  i:integer;

begin
  for i:=35 to 64 do
  write (i, ' ');
readln();
end.   

Консоль:

35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 

У вас есть три числа (три переменные) найдите их медиану