ньютон на метр квадратный

[IOMOPHOu]

В раю Архимед, Паскаль и Ньютон играют в прятки. Архимед водит и

начинает считать. Паскаль убегает за горизонт, а Ньютон оглядывается,

берёт палку, рисует вокруг себя квадрат со стороной 1 метр и становится

внутрь квадрата. Архимед заканчивает считать, открывает глаза и видит

Ньютона:

– Я вижу Ньютона!

– Э, нет! Ньютон на метр квадратный – это Паскаль!

:NYsmile:

 

А вообще нужна помощь, в паскале вообще не шарю, написал бы 2 часть задания в кубазике, но нужна в паскале. не удаляйте до утра, отсосу.

 

 

 

Задание

 

[Unicorne]

http://ru.wikipedia.org/wiki/%CC%EE%EC%E5%ED%F2_%F1%E8%EB%FB

 

Соси

[Droed]

:NYlol: :NYlol: :NYlol: :NYlol: :NYlol:

[IOMOPHOu]

ну рли, видно же что программа плевая, я просто не имел дела с паскалем вообще

[intuiciya_Genadiya]

Бля вот рли бы занялся этой хуйней, но не сейчас. И вообще что ты дашь мне в замен?

За вечный лимон меня на продоте, напишу тебе её завтра

[dinkelan]

за деньги  :NYnate:

и никакого лимона, решать тебе  :NYtrollface:

[plohoy_igrok]

анекдот четкий, спасибо.

[IOMOPHOu]

да лол ну там 5 минут.

со 2 мб ща сам справлюсь

а вот первая вообще хуй знает как

[ISyaQ]

анекдот четкий, спасибо.

[Sonya_Blade]

пиздец.

этому анекдоту уже 300 лет

[PanDuck]

А в каком раю они все вместе были? :NYhmm:

[IOMOPHOu]

вот написал криво вроде

 

 

 

program da;

var

x: integer;

s: real;

 

 

begin

for x:=1 to 1000 do begin

if x mod 3=2 then

begin

s:=s+x

end

end

 

 

;writeln (s:8:5);

end.

 

 

ответ получился 166500.00000

 

 

первое правильно ли?

второе как избавиться от нулей вконце

поправьте ну рли отсосу чо какие

[Lihman]

норм анекдот

[dinkelan]

вот написал криво вроде

 

 

 

program da;

var

x: integer;

s: real;

 

 

begin

for x:=1 to 1000 do begin

if x mod 3=2 then

begin

s:=s+x

end

end

 

 

;writeln (s:8:5);

end.

 

 

ответ получился 166500.00000

 

 

первое правильно ли?

второе как избавиться от нулей вконце

поправьте ну рли отсосу чо какие

из 1000?  :NYlol:

[dinkelan]

щас попробую, уговорил щитай

[Droed]

 

вот написал криво вроде

 

 

 

program da;

var

x: integer;

s: real;

 

 

begin

for x:=1 to 1000 do begin

if x mod 3=2 then

begin

s:=s+x

end

end

 

 

;writeln (s:8:5);

end.

 

 

ответ получился 166500.00000

 

 

первое правильно ли?

второе как избавиться от нулей вконце

поправьте ну рли отсосу чо какие

из 1000?  :NYlol:

 

 

До 1000. Задание лучше читай. Вроде все правильно.

[Mamatehc]

Каким надо быть мудаком, чтобы слить основную фразу анектода.  :NYavtorklif:

[dinkelan]

 

вот написал криво вроде

 

 

 

program da;

var

x: integer;

s: real;

 

 

begin

for x:=1 to 1000 do begin

if x mod 3=2 then

begin

s:=s+x

end

end

 

 

;writeln (s:8:5);

end.

 

 

ответ получился 166500.00000

 

 

первое правильно ли?

второе как избавиться от нулей вконце

поправьте ну рли отсосу чо какие

из 1000?  :NYlol:

 

 

До 1000. Задание лучше читай. Вроде все правильно.

перечитал, не увидел "сумму"  :NYnate:

[Droed]

 

вот написал криво вроде

 

 

 

program da;

var

x: integer;

s: real;

 

 

begin

for x:=1 to 1000 do begin

if x mod 3=2 then

begin

s:=s+x

end

end

 

 

;writeln (s:8:5);

end.

 

 

ответ получился 166500.00000

 

 

первое правильно ли?

второе как избавиться от нулей вконце

поправьте ну рли отсосу чо какие

из 1000?  :NYlol:

 

 

До 1000. Задание лучше читай. Вроде все правильно.

перечитал, не увидел "сумму"  :NYnate:

подсчитать

[IOMOPHOu]

 

вот написал криво вроде

 

 

 

program da;

var

x: integer;

s: real;

 

 

begin

for x:=1 to 1000 do begin

if x mod 3=2 then

begin

s:=s+x

end

end

 

 

[;]writeln (s:8:5);

end.

 

 

ответ получился 166500.00000

 

 

первое правильно ли?

второе как избавиться от нулей вконце

поправьте ну рли отсосу чо какие

из 1000?  :NYlol:

 

 

До 1000. Задание лучше читай. Вроде все правильно.

меня смущает слишком большое количество бегин энд

 

и еще запяточка выделил ее в оффтопике красными квадратными скобками она там не должна стоять но без нее программа не робит

 

и первую решите ну пожаааалуйста  :NYcry: