fkn+antitotal

Задача 3 Урок 12.1

Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу (не выводя ничего в ответ).

program Variant2;
var a: char;
begin
  repeat
    writeln('vvedi chislo');
    readln(a);
    if (a <> '&') then
      writeln('#');
  until (a = '&');

end.    

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

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

Как проверять:

Если мы введем число 55, то программа должна вывести в ответ:
?
1

23 46

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

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

program Variant2;
var z, a: integer;
begin
  z := 55;
  repeat
    write(z, ' ');
    z := z + 1;

  until (z = 9237);

end.     

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

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

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

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

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

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

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

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

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

46541

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

program Variant2;
var i, n: integer;
begin
  readln(n);

  for i:= 1 to 5 do
  begin
    write(n mod 10, '');
    n := n div 10;
  end;
end.       

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

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

program Variant2;

begin
  writeln(15 div 10);
  writeln(15 mod 10);

end.          

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

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

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

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

program Variant2;
var a, s: integer;
begin
  a := 0;
  for s:= 1 to 25 do
    begin
    a:= a + 4;
    write(a, ' ');
    end;

end.      

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

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