Question

1. Вычислить сумму членов последовательности –1, 3, 7, 11, …, меньших числа Х.
2. Составить программу, позволяющую вводить целые числа до тех пор, пока не будет введено число, кратное 3, и вычислить количество введенных чисел.
3. Среди членов последовательности 2, 2+n, 2+2n, 2+3n, … найти и вывести первое число, большее М.

Answer 1

Ответ:

Объяснение:

Program xd;

var a, x: integer;

begin

Writeln ('Задайте значение X');

readln (x);

a := - 1;

while a < x do begin

a := a + 4;

end;

writeln (a);

end.

Program xd;

var a, b: integer;

begin

b := 0;

while a mod 3 <> 0 do begin

readln (a);

b := b + 1;

end;

writeln ('Количество введённых чисел: ', b);

end.

Program c;

var a, n, m: integer;

begin

writeln ('Введите значение n, m');

readln (n, m);

if m < 2 then

writeln ('2 > n')

else

a := 1;

while n < m do begin

n := 2 + a * n;

a := a + 1;

end;

writeln (n ,'>', m );

end.