fkn+antitotal

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

Выведите на экран число 2 как числовой литерал

begin
  write(2);
  readln();
end.
 

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

2

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

Задание: визуализируйте на счетах введенное пользователем число

Урок 11. Задание 4

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

Урок 11. Задание 3

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

var i, a:Integer;
begin
i:=0;
a:=0;
    while i<15 do
    begin
        readln(i);
        if i<15 then
        begin
            a:=a+i;
            writeln(a);
        end
        else
            break    
    end;
end.

консоль:

Урок 11. Задание 2

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

Урок 11. Задание 1

Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и числа 7, если же введённое число больше 15, то цикл необходимо завершить.

var i: integer;
begin
i:=0;
    while i<15 do
    begin
        readln(i);
        if i<15 then
        begin
            writeln(i+7);
        end
        else
            break    
    end;
end.

консоль:

Урок 10. Задача 9

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

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

консоль:

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

Урок 10. Задача 8

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

var i: Integer;
begin
for i:=35 to 117 do
   begin

    if (i >= 35) and (i <= 117) and (i mod 3 = 0) then
         write(i, ' ')
    else
      if  (i >= 45) and (i <= 99) and (i mod 2 <> 1) then
          write(i, ' ');
    end;
readln();
end.

консоль:

Урок 10. Задача 7

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

var i: Integer;
begin
for i:=35 to 117 do
   begin

    if (i >= 35) and (i <= 117) and (i mod 2 = 1) then
         write(i, ' ')
    else
      if  (i >= 45) and (i <= 99) and (i mod 2 <> 1) then
          write(i, ' ');
    end;
readln();
end.

консоль:

Урок 10. Задача 6

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

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

консоль:

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