Var
A : array of real;
i, N, num : integer;
begin
write('Количество чисел: ');
readln(N);
SetLength(A, N);
for i := 0 to N - 1 do
begin
write('A[', i + 1, '] = ');
readln(A[i]);
end;
num := 0;
for i := 0 to N - 1 do
if Sqr(A[i]) < 10 then
Inc(num);
writeln('Таких чисел: ', num);
end.
Const n=3;
type lec=record
name:string;
cost:integer;
end;
var a:array [1..n] of lec;
max1:integer;
m,k,p,i:byte;
begin
for i:=1 to n do
with a[i] do begin
writeln ('Введи наименование товара');
readln (name);
writeln ('введи стоимость товара');
readln (cost);
end;
max1:=-1;
for i:=1 to n do
if a[i].cost>max1 then begin max1:=a[i].cost;
p:=i;
end;
while k<>1 do begin
for i:=1 to n do
if (i<>p) and (a[i].cost=max1) then begin m:=i;
k:=1;
end;
max1:=max1-1;
end;
writeln (a[p].name,' ',a[p].cost);
write (a[m].name,' ',a[m].cost);
readln;
end.
Если ещё надо и разберёшь почерк)))
Строка t равна “действительность”. Найти значение: copy(t, 14, 2)+copy(t, 6, 1)+copy(t, 13, 1)+copy(t, 10, 1); copy(t, 6, 2)+ co
Алекс221
1. стволвид
2.
var
t: string;
begin
t := 'ДЕЙСТВИТЕЛЬНОСТЬ';
WriteLn (Copy (t, 1, 7) + Copy (t, 2, 1));
WriteLn (Copy (t, 4, 1) + Copy (t, 6, 2) + Copy (t, 1, 2) + Copy (t, 8, 4));
WriteLn (Copy (t, 1, 2) + Copy (t, 10, 1) + Copy (t, 13, 1));
end;
Ответ:
Пусть x - количество зеленых яблок. I = log(2)[1/(x/36)] = log(2)[36/x] = 2; 36/x = 2^2; x = 9
Объяснение: