Question

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

1. Ниже приведена программа:

var s,k: integer;
begin
readln(s);
readln(t);
if (s < 1) and (t < 2)
then
writeln ('YES')
else
writeln ('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<n do begin a:=a+1; s:=s+a;  end;

  writeln (s);

end.