fkn+antitotal

Урок №10.2 Задание 1

Модифицируйте код таким образом, чтобы на 4-ом витке на экран было выведено число 777, а на 5-ом произошел выход из цикла (при этом строчку for i:=1 to 10 оставьте без изменений).

program Pr10_2_1;

var i:integer;
begin
  for i:=1 to 10 do
  begin
    if i=5 then break;
    writeln(777);
  end;

  readln();
end.

Консоль:

777
777
777
777

Урок №10.1 Задание 10

Переберите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.

program Pr10_1_10;

var i:integer;

begin
      for i:=1 to 100 do
        if (i mod 7 = 0) then write(i,' ');
readln();
end.

Консоль:

7 14 21 28 35 42 49 56 63 70 77 84 91 98

Урок №10.1 Задание 9

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

program Pr10_1_9;

var i:integer;

begin
    for i:=35 to 117 do
     if (i mod 3 = 0) or (i>=45) and (i<=99) and (i mod 2<>0) then
       begin
        write(i,' ');
       end;
readln();
end.           

Консоль:

Урок №10.1 Задание 8

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

program Pr10_1_8;

var i:integer;

begin
    for i:=35 to 117 do
     if (i mod 2 = 0) or (i>=45) and (i<=99) and (i mod 2<>0) then
       begin
        write(i,' ');
       end;
readln();
end.         

Консоль:

Урок №10.1 Задание 7

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

program Pr10_1_7;

var i:integer;

begin
    for i:=35 to 117 do
     if (i mod 2 <>0) and (i mod 3 = 0) then
      write(i,' ');
readln();
end.

Консоль:

39 45 51 57 63 69 75 81 87 93 99 105 111 117

Урок №10.1 Задание 6

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

program Pr10_1_6;
var a,i:integer;

begin
readln(a);
if (a>100) then
   begin
    for i:=a downto 1 do
    write(i,' ')
   end
   else
    for i:=1 to a do
    write(i,' ');

   readln();
end.               

Консоль:

Урок №10.1 Задание 5

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

Урок №10.1 Задание 4

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

program Pr10_1_4;

var i:integer;

begin
for i:=35 to 64 do
    if (i mod 2 = 0) then write(i,' ');

readln();
end.              

Консоль:

36 38 40 42 44 46 48 50 52 54 56 58 60 62 64

Урок №10.1 Задание 3

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

program Pr10_1_3;

var a,b,i:integer;

begin
  readln(a,b);
   if (a>b) then
    for i:=b to a do
     write(i,' ')
else
    for i:=b downto a do
     write(i,' ');

readln();
end.

Консоль:

10
5
5 6 7 8 9 10

5
10
10 9 8 7 6 5

Урок №10.1 Задание 2

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

program Pr10_1_2;

var i:integer;

begin
for i:=35 to 64 do
write(i:3);
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