Var x,y:integer;
begin
x:=2;
y:=3;
writeln(x,'+',y,'=',x+y);
<span>end.</span>
Я не совсем понял, но если смотреть со стороны логики, то норм
море
соре
суре
суше
сушя
суша
10кб=10*2^10*2^3 бит
256000=2^8*10^3
10*2^10*2^3/2^8*10^3=2^5\100=32\100=0,32 с
Program zadacha;
var
k,x,i,n:integer;
m:Array[1..100] of Integer;
begin
k:=0;
readln(n);
for i:=1 to n do begin
readln(m[i]);
end;
for i:=2 to n do begin
if m[i]>m[1] then k:=k+1;
end;
write(k);
<span>end.</span>
Могла бы и написать чему равен исходный W)))))
ну да ладно))
вот:
uses crt;
var
E,f,w,magprovod:real;
begin
writeln('Исходные данные:');
write('f=');
read(f);
write('w=');
read(w);
write('magprovod(только число без степени десятки)=');
read(magprovod);
E:=4.44*f*w*magprovod*(1/10/10/10/10);
write(ЭДС равно=',E);
<span>end.
З.Ы.magprovod=Ф, просто f уже есть, а русские паскаль не воспринимает)))</span>