1) Program gsdn;
Var k: integer;
z,n,i,l,s: real;
Begin
k:=0;
l:=5.6;
s:=0;
Repeat
k:=k+1;
n:=0.3;
i:=l+(n*k);
S:=i+s;
Writeln(i);
Until i=9.8;
Writeln(s);
<span>end.
2) </span>Program afaf;
Var k,h: integer;
z,n,i,l,s,y: real;
begin
k:=0;
h:=0;
l:=8.5;
s:=0;
Repeat
k:=k+1;
n:=0.1;
i:=l+(n*k);
S:=i+s;
Until i=40.9;
k:=0;
h:=0;
l:=1;
y:=1;
Repeat
k:=k+1;
n:=0.1;
i:=l+(n*k);
y:=i*y;
Until i=3;
If y-s>0 then writeln('Сумма ряда 8.5, 8.6,...,40.9 меньше произведения чисел от 1 до 3 с шагом 0.25');
If y-s<0 then writeln('Сумма ряда 8.5, 8.6,...,40.9 больше произведения чисел от 1 до 3 с шагом 0.25');
If y-s=0 then writeln('Сумма ряда 8.5, 8.6,...,40.9 равно произведению чисел от 1 до 3 с шагом 0.25');
<span>end.
3) </span>Program dsagsa;
var i,j,y: integer;
B: Array[1..5,1..5] of integer;
begin
For i:=1 to 5 do
For j:=1 to 5 do
begin
y:=random(16)-5;
B[i,j]:=y;
end;
For i:=1 to 5 do
begin
Write('(');
For j:=1 to 5 do
Write(B[i,j],' ');
Write(')');
Writeln;
end;
<span>end.
4) </span>program fagasg;
var i,j,i1,j1,y,s: integer;
A: Array[1..50,1..50] of integer;
begin
Writeln('Введите количество строк в массиве');
readln(i1);
Writeln('Введите количество столбцов в массиве');
readln(j1);
s:=0;
For i:=1 to i1 do
begin
Write('(');
For j:=1 to j1 do
begin
y:=random(30)+1;
A[i,j]:=y;
S:=A[i,j]+s;
Write(A[i,j],' ');
end;
Write(')');
Writeln;
end;
<span>end.
Матрицы немного коряво вышли, ну и чуть-чуть быдло кода)</span>
Ну алгоритм это последовательность действий=> решение..
<span>Управляющий объект Алладин Объект управления
Управляющий объект мальчик Объект управления Старик Хотабыч
Управляющий объект царевна Объект управления Серый Волк
Управляющий объект девочка Объект управления Воздушный шар
Управляющий объект чудовище Объект управления Цветик-семицветик
Управляющий объект человек Объект управления одежда</span>
Ответ:
1)
Begin
Count:=0;
repeat
Read (ch);
If ch> 0 then inc(count);
Until ch<>0
Write(count);
End.
2)
Begin
Sum:=0;
Count:=0;
repeat
Read (ch);
Sum:=sum+ch;
If ch mod 9=0 then inc(count);
Until sum<200
Write(count);
End.
