fkn+antitotal

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

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

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

Пользователь вводит первое целое число-ограничитель m. А затем начинает вводить целые числа по одному, пока не введёт число большее числа-ограничителя.
Если очередное целое число больше 1, то в ответ на каждое такое число программа должна выводить все целые числа от единицы до этого числа.

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

Пользователь вводит числа до тех пор пока не введёт число меньшее 1. В ответ на каждое введённое им число выводите на экран все нечетные числа от 1 до это числа, при этом делящиеся на 5. Если же пользователь ввел число меньшее 1, то завершите программу.

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

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

var i, j: integer;
begin
  i:=1;

  while i<10 do
    begin
      j:=1;
      repeat
        write(i, 'x', j, '=',i*j, ' ');
        j:=j+1;
      until (j=9) ;

    i:=i+1;
    writeln();
    end;

  writeln();
  writeln('<<Konec>>');
  readln();
end.
      

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

Выведите на экран таблицу умножения используя только циклы вида while

var i, j: integer;
begin
  i:=1;

  while i<10 do
    begin
      j:=1;
      while j<10 do
      begin
        write(i, 'x', j, '=',i*j, ' ');
        j:=j+1;
      end;
    i:=i+1;
    writeln();
    end;

  writeln();
  writeln('<<Konec>>');
  readln();
end. 

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

Выведите на экран таблицу умножения используя один цикл while и один repeat-until

var i, j: integer;
begin
  i:=1;
  repeat
    j:=1;
    repeat
      write(i, 'x', j, '=',i*j, ' ');
      j:=j+1;
    until j>9;
    i:=i+1;
    writeln();
  until i>9 ;
  writeln();
  writeln('<<Konec>>');
  readln();
end.

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

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

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

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

var a: integer;

begin
  a:=35;
  repeat
    if ((a mod 6)=0) then
      write(a, ' ');
    a:=a+1;
  until a=117;
  writeln();
  writeln('<<<Konec>>>!');
  readln();
end

.

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

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

var a: char;

begin
  repeat
    writeln('vvedite simvol : ');
    readln(a);
    if a<>'#' then
      writeln('&');
  until a='#';
  writeln('<<<Konec>>>!');
  readln();
end. 

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

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