Объяснение:
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.
begin
writeln('Введите число N1');Read(N1);
writeln('Введите число N2');Read(N2);
M:= abs(n2 - n1)+1;j:=n1;
for i:=1 to M do begin
writeln(i:3,j:3);
j:=j + 1;end;end.