fkn+antitotal

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

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

1. С использованием логической операции and.
2. С вложенными блоками (без and, все опараторы if должны быть в полной форме).
(Если не получается - см. разбор решения(link is external))
3. Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.
(Если не получается - см. разбор решения(link is external))

1.

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

Пользователь вводит два числа, найдите из них максимальное. (тут всё просто)
Примечание: если не просто или для лучшего понимания решения, см. этот видео-разбор(link is external).

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

Выведите на экран число 2 как символ

begin
  write('2');
  readln();
end. 

Вывод консоли:

2

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

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

Цикл и программа должны завершиться, когда число z станет отрицательным.

Пример работы в консоли:

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

У вас есть число z=5. Пользователь вводит числа в цикле, если хотя бы одно введенное число число было равно 77, то увеличивайте число z на 1 в ответ на каждое введенное число, до тех пор пока пользователь не введет число 55, если такое произойдет то в ответ на это и любое последующее число, уменьшайте z на 1.

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

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

Решение:

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

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

46541

(используйте опеции div и mod, подразумевается решение через цикл )

Решение:

program u11z13;
var i:integer;
begin
  writeln('vvedite celoe chislo');
  readln(i);
  while i>0 do
  begin
    write(i mod 10);
    i:=i div 10;
  end;
  readln();
end.

Консоль:

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

Получите первую и последнюю цифры числа 15 с помощью оперций div и mod (решается без цикла)

Решение:

var
  i:integer;
begin
  writeln('vvedite celoe chislo');
  readln(i);
  writeln(i div 10);
  writeln(i mod 10);
  readln();
end.

Консоль:

vvedite celoe chislo
15
1
5

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

Вывести на экран все числа от 4 до 100 с шагом 4, т.е.:

4 8 12 16.......100

(при более оптимальном решении проверка через mod не потребуется)

Решение:

var i:integer;
begin
  i:=0;
  while i<100 do
  begin
    i:=i+4;
    write(i, ' ');
  end;
  readln();
end.

Консоль:

4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88 92 96 100

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

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

Решение: