Задача 1: Пользователь вводит число. Если он попал в промежуток между 100 и 120 -...

Question

Задача 1: Пользователь вводит число. Если он попал в промежуток между 100 и 120 - Говорить попал, иначе не попал. Задача 2: На цикл for. Пользователь вводит число n, вывести n раз строчку "Я люблю прыгать" ДОПОЛНЕНИЕ: В задаче 1 присвоить переменной типа boolean true или false если он попал или нет. if(b), b:boolean;

Comments

PASCAL ABC

Answer 1

(1) var a:integer; b:boolean;

begin

read(a);

if (a > 100) and (a < 120) then b := true else b := false;

if (b) then writeln('popal') else writeln('ne popal');

end.

(2) var i:integer; n: integer;

begin

read(n);

for i := 1 to n do writeln('I love jumping');

end.