Var time:integer;
var summa:real;
var month:string;
k:=1.05;
begin
month := ' месяцев';
summa:=10000;
while summa<20000 do begin
summa:=summa*k;
time:=time+1;
end;writeln('Ответ:',time + month);
end.
600 * 1024 * 8 = 4915200 бит в файле
4915200 / (60 * 8) = 10240 Гц
Вроде так)
Опять похожая задача у тебя) Держи решение:
const m=?; {Вместо "?" нужно вписать любое число}
Var s:real;
Begin
s:=0;
for i:=2 to m do
if sin(i)<0 then s:=s+sin(i);
writeln(s);
End.
var
x1, x2, x3:real;
begin
write('x1 = '); readln(x1);
write('x2 = '); readln(x2);
write('x3 = '); readln(x3);
if x1 < x2 then
if x1 < x3 then
writeln('минимальным является элемент х1 = ', x1)
else
writeln('минимальным является элемент х3 = ', x3)
else
if x2 < x3 then
writeln('минимальным является элемент х2 = ', x2)
else
writeln('минимальным является элемент х3 = ', x3);
end.
X+y+z=72
x1=x-y
y1=y+y=2y
y2=y1-z=2y-z
z1=2z
z2=z1-x1=2z-x+y
x2=x1+x1=2x-2y
x2=y2=z2=23
2x-2y=24 --->x-y=12 ----> x=y+12 (подставляем в (*)
2y-z=24 ----> z=2y-24 (подставляем в (*)
2z-x+y=24 (*)
2(2y-24)-(y+12) +y=24
4y-48-y-12+y=24
4y=84
y=21
x=21+12=33
z=2*21-24=42-24=18
x=33 y =21 z=18
ответ 33 21 18