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

begin

for x:=1 to 1000 do begin

if x mod 3=2 then begin

s:=s+x; end;

end;

 

Так же вроде должно быть.

 

И офк ту выделенную убери.

дно.

 

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

 

 

 

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)  (s:1:0);

end.

 

 

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

 

 

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

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

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

из 1000?  :NYlol:

 

 

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

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

 

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

 

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

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

 

осталось только решить первое кому не впадлу.

 

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

 

 

 

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:

подсчитать

а не "подсчитать сумму" ты разницу чувствуешь, не?

 

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

 

 

 

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:

подсчитать

а не "подсчитать сумму" ты разницу чувствуешь, не?

Ну что тогда по твоему сделать надо?

 

В данном контексте "подсчитать" и "подсчитать сумму" мне кажутся равны.

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

 

 

 

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

 

 

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

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

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

writeln(s);

это уберет нули

s:=s+1;

 

так ты подсчитаешь количество, сумму не надо же считать

и перед бегином приравняй s:=0

:NYnate:

 

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

 

 

 

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:

подсчитать

а не "подсчитать сумму" ты разницу чувствуешь, не?

Ну что тогда по твоему сделать надо?

 

В данном контексте "подсчитать" и "подсчитать сумму" мне кажутся равны.

подсчитать их количество  :NYnate:

Не сильно меняет код, пусть автор разъяснит  :NYbuba:

 

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

 

 

 

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:

подсчитать

а не "подсчитать сумму" ты разницу чувствуешь, не?

Ну что тогда по твоему сделать надо?

 

В данном контексте "подсчитать" и "подсчитать сумму" мне кажутся равны.

подсчитать их количество  :NYnate:

Не сильно меняет код, пусть автор разъяснит  :NYbuba:

Чот затуп, рили  :NY._.:

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

 

 

 

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

 

 

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

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

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

writeln(s);

это уберет нули

s:=s+1;

 

так ты подсчитаешь количество, сумму не надо же считать

и перед бегином приравняй s:=0

:NYnate:

ну и "реал" нахуй не нужен, на этом все

конечно количество

где вы видите

ПОДСЧИТАТЬ СУММУ НАТУРАЛЬНЫХ ЧИСЕЛ

 

 

а насчет первого:

подставь блядь все эти значения переменных

 

нарой в интернете про крамера

там вроде матрицу хуяришь и все легко блядь

 

ленивые пиздец

колянуб1995 это как диман1234567890, только 1995 :NYtrollface:

колянуб1995 это как диман1234567890, только 1995

у меня в школе 5 по математике  :NYnate:

кароче почан которому это делаю говорит что он хуй знает

 

 

ну а так мне кажется что количество тогда да, надо s=s+1

 

 

 

 

а чо с первой делать?

конечно количество

где вы видите

ПОДСЧИТАТЬ СУММУ НАТУРАЛЬНЫХ ЧИСЕЛ

 

 

а насчет первого:

подставь блядь все эти значения переменных

 

нарой в интернете про крамера

там вроде матрицу хуяришь и все легко блядь

 

ленивые пиздец

в том то и дело что не знаю как матрицу делать в паскале

 

конечно ща по учебникам пороюсь но хз

конечно количество

где вы видите

ПОДСЧИТАТЬ СУММУ НАТУРАЛЬНЫХ ЧИСЕЛ

 

 

а насчет первого:

подставь блядь все эти значения переменных

 

нарой в интернете про крамера

там вроде матрицу хуяришь и все легко блядь

 

ленивые пиздец

в том то и дело что не знаю как матрицу делать в паскале

 

конечно ща по учебникам пороюсь но хз

двумерный массив, поочередно вводишь константы в него, потом метод крамера. Как задается, погугли  :NYdunno:

ну тогда так

 

 

 

program da;

var

x: integer;

s: real;

begin

for x:=1 to 1000 do begin

if x mod 3=2 then begin

s:=s+1; end;

end;

 

 

writeln (s:1:0);

end.

 

 

или вот так

 

 

 

 

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

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

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

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

Ньютона:

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

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

:NYsmile:

 

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

 

 

 

Задание

 

Винамп пробовал запустить?  :NYhmm:

тебе визначник (хз как по-русски) надо в методе краммера посчитать?

 

 

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

 

 

потом делишь для каждого

 

 

всё

.

ну тогда так

 

 

 

program da;

var

x: integer;

s: integer;

begin

s:=0

for x:=1 to 1000 do

    begin

            if x mod 3=2 then

          begin

            s:=s+1;

          end;

    end;

 

writeln (s);

end.

 

 

вот так количество

 

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

 

 

 

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:

подсчитать

а не "подсчитать сумму" ты разницу чувствуешь, не?

Ну что тогда по твоему сделать надо?

 

В данном контексте "подсчитать" и "подсчитать сумму" мне кажутся равны.

подсчитать их количество  :NYnate:

Не сильно меняет код, пусть автор разъяснит  :NYbuba:

количество их будет 333, это я и так скажу.  :NYtrollface: скорее требуется создать лист с этими самыми числами. должно быть не менее элементарно, но как делать в паскале хз.