fkn+antitotal

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

Модифицируйте предыдущую задачу так, чтобы в случае, если число удовлетворяет требованиям (целое, положительное), то на экран выводились четные числа.

Решение:

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

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

Решение:

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

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

Примечание: это задача на вложенные циклы, в качестве внешнего надо использовать while, а в качестве внутреннего можно использовать или for или while.

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

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

Решение:

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

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

Решение:

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

Консоль:

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

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

Решение:

program u13z02;
var i,j: integer;
begin
  i:=1;
  while i<=9 do
  begin
    j:=1;
    while j<=9 do
    begin
      writeln(i,'x',j,' = ',i*j);
      j:=j+1;
    end;
    i:=i+1;
  end;
  readln();
end.

Консоль:

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

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

1x1 = 1
1x2 = 2
......

Решение:

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

Консоль:

Задача 1. Урок 10.1.

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

var i:integer;
begin
  for i:=35 to 64 do
  write(i,'  ');

  readln();
end.

Консоль:

35  36  37  38  39  40  41  42  43  44  45  46  47  48  49  50  51  52  53  54  55  56  57  58  59  60  61  62  63  64  

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

Выведите на экран 222 -- первую цифру как число, а остальное как строку.

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

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

222

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

Выведите на экран 222 как строку

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

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

222