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