Program n1;
const n=10;
var a: array[1..n] of integer;
i,num,kt: integer;
begin
randomize;
kt:=0;
num:=0;
for i:=1 to n do
begin
a[i]:=random(25)-12;
write(a[i],' ');
end;
for i:=1 to n do if a[i] mod 5=0 then begin
num:=i;
kt:=kt+1;
if kt=2 then break;
end;
writeln;
write(num);
end.
1) найти убыль как к-во * 12%
2) найти прирост как к-во * 20%
3) к-во = к-во-убыль+прирост
выполнить 8 раз
var
x,a,b:real;
i:integer;
begin
x:=100000;
for i:=1 to 8 do
begin
a:=x*0.12;
b:=x*0.20;
x:=x+b-a;
end;
writeln(x);
end.
Ответ:
0.0087659 • 10² = 0.87659
0.0321 • 10⁻³ = 0.0000321
0.2952E+7 = 2952000
44.7924E-5 = 0.000447924
УРАВНЕНИЕ
тура (без 1 буквы) - ура
в н е
книга (без 1 буквы и 2-х последних букв) - ни
е