fkn+antitotal

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

Есть программа:

Урок 13.1 Задача 19

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=18:

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

У вас есть код:

var a, b: integer;
 
procedure pishi();
var a: integer;
begin
  a:=4;
  writeln(a);
  b:=2;
  writeln(b);
end;
 
begin  // тело программы
  a:=3;
  pishi();
  writeln(a);
end. 

-- эта программа в конечном итоге присваивает и выводит на экран 3 значения.

Урок 19. Задача 3.

Имеется текстовый файл в котором содержится не более 30 строк, в каждой строке не более 30 символов (пробелы тоже считаются символами). Цифры и другие символы перемешаны в каждой строке.
Задание: найдите максимальное число, c учетом того, что числом считаются подряд идущие цифры не только по горизонтали, но и по вертикали.

Задача 7 Урок 12.1:

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

Задача 6 Урок 12.1:

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа, делящиеся на 3 и на 6 нацело , лежащие в диапазоне от 35 до 117.

program task6;
var a: integer;
begin
  a:=35;
  repeat
    if (a>35) and (a mod 3=0) and (a mod 6=0) then
       writeln (a);
    a:=a+1;
  until (a=117);
  readln();
end.

Задача 5 Урок 12.1:

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

program task5;
var a: char;
begin
  repeat
    writeln ('Vvedite simvol');
    readln (a);
    if (a='#') then
      break;
    writeln ('&');
  until (a='#');
  readln();
end.

Задача 4 Урок 12.1:

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

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

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

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

program task2;
var a,b: integer;
begin
  a:=55;
  repeat
    writeln (a);
    a:=a+1;
  until (a>9326);
  readln();
end.
     

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

Есть программа:

var m,s:integer;
begin
  writeln('Vvedite chislo M');
  readln(m);
  s:=1;
  if (s = 1) then
    writeln('soobchenie 1');
  if (s = m) then
    writeln('soobchenie 2');
end;

-- при этом известно, что если s равно 1, то на экран должно вывестись только первое сообщение (а второе выводиться не должно), а если s не равно 1, но равно m, то второе (а первое выводиться не должно).
Но сейчас программа работает не так, исправьте это.