program z1;
var
i,j,m,k,z,x,l:integer;
begin
readln(m);
for i:=0 to m do begin z:=1;
if i=0 then z:=1 else begin
x:=i;
while x<>0 do begin
z:=z*4;
x:=x-1;
end; end;
if ((z<m) and (z*4>m)) then writeln(i);
if z=m then writeln(i-1);
end;
end.
program z2;
var
i,j,n,k,z,x,l:integer;
begin
readln(n);
for i:=0 to n do begin z:=1;
if i=0 then z:=1 else begin
x:=i;
while x<>0 do begin
z:=z*2;
x:=x-1;
end; end;
if ((z>n) and (z/2<n)) then writeln(i);
if z=n then writeln(i+1);
end;
end.
program z3;
var
i,j,n,k,z,x,s:integer;
begin
readln(n); s:=0;
for i:=1 to n do begin z:=1;
for j:=i to 2*i do
z:=z*j;
s:=s+z; end;
writeln(s);
end.
время 2 ночи
...думаю пора спать )
Створити масив дійсних чисел від 1 до 5. Знайти мінімальне та максимальне значення. Знайти сумму мінімального та максимального значення.
Объяснение:
0 строка - оголошення процедури
1 строка - оголошення зміних та надання їм типу цілих чисел
2 -оголошення масиву
3- оголошення змінних та надання їм типу дійсних чисел
4-початок
5-
6-цикл з лічильником та присовення знінній і значення 0
7-перетворення масиву у з рядкового типу у дійсний
8-
9-цикл з лічильником та присовення змінній і значення 1
10-перетворення з рядкового типу у цілі числа
11- перетворення з дійсного типу у рядковий
12-кінець
13-
14-присвоення змінній значення
15-присвоення змінній значення
16-присвоення змінній значення
17-цикли з лічильником та присвоення змінній і значення 2
18-умова при виконанні якої max:=А[i]
19-
20-цикли з лічильником з присвоєнням змінній і значення 1
21-умова при виконанні якої min:=А[i]
22-
23-
24-кінець
25- присвоєння рядкового типу
26-
27-знаходження сумми
28-
29-присвоєння рядкового типу
30-
31-кінець
