fkn+antitotal

Задание 1 Урок 13.1

Выведите на экран таблицу умножения используя только циклы вида repeat/until.
Начинаться вывод таблицы должен как-то так:
▶

1x1 = 1
1x2 = 2

var i, j: integer;
begin
  i := 1; 
  repeat 
    j := 1; 
    while (j<=9) do 
    begin
      writeln(i, '*', j, '=', i*j, ' ');
      j:=j+1; 
    end;
    i:=i+1; 
  until (i > 9);  
end.

Консоль:

Задание 8 Урок 12.1

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

var i,a: integer;
begin
  a:=117;
  i:= 35;
  repeat
    if ((i>35) and (i<117) and (i mod 2 = 0)) or ((i mod 3 = 1) and (i>45) and (i<99)and (i mod 7 = 1)) then
    write (i, ' ');
    i:= i+1;
  until (i>a);
readln();
end.

Консоль:

Задание 7 Урок 12.1

Выведите на экран, все четные числа, делящиеся на 3
и на 6
нацело , лежащие в диапазоне от 35 до 117.

var i,a: integer;
begin
  a:=117;
  i:= 35;
  repeat
    if ((i mod 3 = 0) and (i mod 6 = 0)) then
    write (i, ' ');
    i:= i+1;
  until (i>a);
readln();
end.

Консоль:

36 42 48 54 60 66 72 78 84 90 96 102 108 114 

Задание 6 Урок 12.1

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

var a: char;
begin
 repeat
   writeln ('введи символ и нажми Enter');
   readln (a);
   if a='#' then
     break
    else
     writeln ('&');
  until (a='#');
    writeln('Конец');
readln();
end.

Консоль:

Задание 5 Урок 12.1

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

Задание 3 Урок 12.1

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

var i,a: integer;
begin
  a:=9236;
  i:= 55;
  repeat
    write (i, ' ');
    i:= i+1;
  until (i>a);
readln();
end.

Консоль:

Задание 1 Урок 12.1

Вывести на экран все числа от 1 до N с помощью цикла repeat/until.

var i,n: integer;
begin
  writeln ('vvedite chislo a');
  readln(n);
  i:= 1;
  repeat
    write (i, ' ');
    i:= i+1;
  until (i>n);
readln();
end.

Консоль:

vvedite chislo a
15
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 

program Hello;
var z,a: integer;
begin
z:=5;
begin
  while (z<77) do
   begin
  writeln ('vvedite chislo');
  readln(a);
  begin
    if a=77 then
    z:=z+1
    else if a=55 then
    z:=z-1
   end;
    writeln(z);
  end;
  end;
  
end.

Задание 14 Урок 11

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

Задание 13 Урок 11

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