весы калькулятор и т.д что может помочь в сложных вычислениях
Нева - Вена
Куба - Баку
Ирак - Каир
Эльбрус - Эльбурс
Токио - Киото
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.
Function NOD(a,b : Longint) : Longint;
Begin
If (a mod b)=0 then NOD:=b else Nod:=NOD(b,a mod b);
end;
Begin
Writeln(NOD(9,6));
End.
Свободного места на диске осталось 5.748.211.712 байт = 5.613.488 Кб = 5481,921 Мб
5481,921/900 ≈ 6 целых архивов можно записать в диск