РЕБЯТА, УМОЛЯЮ ПОМОГИТЕ ПОЖАЛУЙСТА У МЕНЯ ОСТАЛОСЬ 20 МИНУТ!!! СДЕЛАЙТЕ ПОЖАЛУЙСТА КАК...

Question

РЕБЯТА, УМОЛЯЮ ПОМОГИТЕ ПОЖАЛУЙСТА У МЕНЯ ОСТАЛОСЬ 20 МИНУТ!!! СДЕЛАЙТЕ ПОЖАЛУЙСТА КАК МОЖНО БЫСТРЕЕ!!! 1. Ниже приведена программа:var s,k: integer;beginreadln(s);readln(t);if (s < 1) and (t < 2)thenwriteln ('YES')elsewriteln ('NO')end.Было выведено 9 запусков программы, при которых в качестве значений переменных вводились следующие пары чисел (s, t):(3, 5); (4, 3); (4, −5); (0, 7); (0, −2); (−2, 1); (−2, 5); (−2, −4); (1, 2).Сколько было запусков, при которых программа напечатала «NO»? В качестве решения выпишите все пары запусков и напротив каждого укажите вывод: YES или NO. В ответе укажите количество. 2. Составьте программу, выводящую значение вещественной переменной x, равной значению выражения 2(a+b)/a^2,где a и b – целочисленные переменные, их значения вводятся с клавиатуры.3. Целое положительное число вводится с клавиатуры. Нужно проверить является ли оно четным.4. Напишите программу, которая вычисляет сумму n-первых целых положительных чисел S = 1 + 2 + 3 + … + n. Количество суммируемых чисел n должно вводиться пользователем во время работы программы.​

Answer 1

1) (3;5) no

(4;3) no

(4;-5) no

(0, 7); no

(0, −2);yes

(−2, 1); yes

(−2, 5); no

(−2, −4); yes

(1, 2).  no

2) var a,b: integer;

x: real;

begin

 readln(a,b);

 x:=2*(a+b)/(a*a);

 writeln('x=',x)

end.

3)var x: integer;

begin

 readln(x);

 if (x mod 2=0) then writeln('четное') else writeln('нечетное')

 end.

4) var s,n,a: integer;

begin

  readln(n);

  s := 0;

  a:=0;

  while a

  writeln (s);

end.