Составим полный код к нашему заданию а:
program ex1;
uses crt;
var
k, a: integer;
begin
k := 1;a := 12;
while a < 100 do
begin
a := 2 * a - 4;
Writeln('Значения a ', a);
k := k + 1;
Writeln('Значения k ', k);
end;
end.
После выполнения программы получаем такие значения:
Значения a 20
Значения k 2
Значения a 36
Значения k 3
Значения a 68
Значения k 4
Значения a 132
Значения k 5
Составим полную программу к заданию б:
program ex2;
uses crt;
var
k, a, s: integer;
begin
s := 0;a := 1;k := 1;
while a < 50 do
begin
s := s + a;
Writeln('Значения s ', s);
k := k + 1;
Writeln('Значения k ', k);
a := k * k;
Writeln('Значения a ', a);
end;
end.
После выполнения программы получаем такие значения:
Значения s 1
Значения k 2
Значения a 4
Значения s 5
Значения k 3
Значения a 9
Значения s 14
Значения k 4
Значения a 16
Значения s 30
Значения k 5
Значения a 25
Значения s 55
Значения k 6
Значения a 36
Значения s 91
Значения k 7
Значения a 49
Значения s 140
Значения k 8
Значения a 64
Составим полный код к нашему заданию а:
program ex1;
uses crt;
var
k, a: integer;
begin
k := 1;a := 12;
while a < 100 do
begin
a := 2 * a - 4;
Writeln('Значения a ', a);
k := k + 1;
Writeln('Значения k ', k);
end;
end.
После выполнения программы получаем такие значения:
Значения a 20
Значения k 2
Значения a 36
Значения k 3
Значения a 68
Значения k 4
Значения a 132
Значения k 5
Составим полную программу к заданию б:
program ex2;
uses crt;
var
k, a, s: integer;
begin
s := 0;a := 1;k := 1;
while a < 50 do
begin
s := s + a;
Writeln('Значения s ', s);
k := k + 1;
Writeln('Значения k ', k);
a := k * k;
Writeln('Значения a ', a);
end;
end.
После выполнения программы получаем такие значения:
Значения s 1
Значения k 2
Значения a 4
Значения s 5
Значения k 3
Значения a 9
Значения s 14
Значения k 4
Значения a 16
Значения s 30
Значения k 5
Значения a 25
Значения s 55
Значения k 6
Значения a 36
Значения s 91
Значения k 7
Значения a 49
Значения s 140
Значения k 8
Значения a 64
var
a,plus,minus,d:integer;
c:array[1..50] of integer;
begin
plus:=0;
minus:=0;
for a:=1 to 50 do
c[a]:=random(20)-10;//заполняем массив рандомо
for a:=1 to 50 do//проверям условие
if ((c[a]>0) and (c[a]<>0)) then
plus:=plus + 1
else if ((c[a]<0) and (c[a]<>0)) then
minus:= minus + 1;
Writeln(plus,' ');//кол-во полож
Writeln(minus,' ');//кол-во отриц
if (plus>minus)then
Writeln('Положительных')
else Writeln('Отрицательных');
end.