1)var
a,b,h:real;
begin
readln(a);
readln(b);
readln(h);
while a<b do
begin
writeln(a,' ',2*cos(a)-1:8);
a+=h;
end
<span> end.
2)</span>var
eps,sum,current,n:real;
begin
readln(eps);
sum:=0;
n:=0;
repeat
current:=2*n-1/power(2,n);
n+=1;
sum+=current;
until current>eps;
writeln(sum);
<span>end.</span>
Смотрим по таблице К для b=24. Поэтому К=16777216. Ответ:16777216 цветов
Метель,дождь,ветер,сырость,слякоть
Program programma;
uses crt;
var i,j,m, n, k: integer;
a:array [1..100, 1..100] of integer;
begin clrscr;
randomize;
write('N = '); readln(n);
write('M = '); readln(m);
for i:=1 to n do
begin
for j:= 1 to m do
a[i,j]:=random(50);
end;
writeln;
k:=0;
for i:=1 to n do
begin
for j:= 1 to m do
write(a[i,j]:5);
writeln;
end;
for i:=1 to n do
begin
for j:= 1 to m-1 do
if (a[i,j]<=a[i,j+1]) then k:=k+1;
writeln;
if (k=m-1) then writeln ('Номер строки: ', i);
k:=0;
end;
end.
Ответ 4
функция div определяет целочисленное деление
22 делим на 5 =4 в остатке 2