Program getar;
uses crt;
var
S,ur:real;
god:integer;
begin
god:=0;
s:=100; //площадь
ur:=20; // урожайность
while s<=120 do
begin
god:=god+1; // подсчет лет
s:=s+((s/100)*5); // площадь ув. на 5%
ur:=ur+((ur/100)*2);// урожайн. ув. на 2%
end;
writeln('Cherez ',god,' goda ploshad budet bolshe 120 ');
end.
мне трудно объяснять на словах держи программу в ней алгоритм подсчета и тд..
Изи , Pentium G2020 , 2.9GHz - процессор
LGA1155 - сокет(socket)
ASUS P8B75- M LX PLUS - материнская плата
Intel B75 Chipset - чипсет процессора
Intel Pentium G2020 2.9GHZ - процессор
2048Mb DDR3 - оперативная память
250.0Gb - скорее всего либо жёсткий диск , либо ссд , (Hdd , либо SSD)
VENTO TA863 - блок питания
ATX/sound/LAN - скорее всего звуковая и сетевая карта
Какой класс?
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var r:=Range(1,ReadInteger('n='),2);
var p:=r.Aggregate(BigInteger(1),(i,j)->i*j);
var s:=r.Sum;
Writeln('x=',p,'/',s,'=',real(p)/s)
end.
<u>Пример</u>
n= 39
x=319830986772877770815625/400=7.99577466932194E+20
Begin
var s:=readstring;
write ((s[1]<s[2]) and (s[3]<s[4]) and (s[2]<s[3]));
end.