1. Вычислить сумму членов последовательности –1, 3, 7, 11, …, меньших числа Х. 2....

Question

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

Comments

Тебе на Паскале писать или на Питоне?

---

gfcrfkm

---

Паскаль

---

через repeat или while

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.