Первая:
<span>var </span>
<span>q,a,b:real; </span>
<span>begin </span>
<span>read(a,b); </span>
<span>q:=sqrt(a*a+b*b); </span>
<span>writeln(q:2:2); </span>
<span>end. </span>
<span>Вторая: </span>
<span>var </span>
<span>a:integer; </span>
<span>begin </span>
<span>read(a); </span>
<span>writeln('The next number for the numder ',a,' is ',a+1); </span>
<span>write('The previaus number for the numder ',a,' is ',a-1); </span>
<span>end. </span>
Должно быть так:
V=51200*4*64/1024=32000 kbits, для перевода в кБайты:
V=32000/8=4000 kbytes
Tryelle.doc
seppe.ddp
xleore.domen
boenge.doom
lelle.dee
тоже делал это задание. поставили 5 =)
Удачи!
Возьми, учись хорошо,удачи тебе в учёбе
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.
мне трудно объяснять на словах держи программу в ней алгоритм подсчета и тд..