fkn+antitotal

Урок 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

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

Изучите код:
var s, t:integer;
f, b:boolean;
begin
f := true;
b := false;

if (f=true) then
t:=1
else
t:=2;

if (b=false) then
s:=3
else
s:=4;
end.
-- блоки условий можно переписать более кратко, без использования сравнения = true или = false, с сохранением той же логики работы программы.

Подсказки:

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

В примере №2 есть код, перепишите его таким образом, чтобы сообщение "Игра окончена" выводилась, только если пользователь не угадал загаданное число.
Подсказка: используйте значение логического типа.

Решение