For, While, Repeat ... Не понимаю..

[PaScalpel]

Кому не тяжело решите пожалуйста хотябы одну ...

1. Найти сумму всех парных натуральных чисел от 6 до 24 включительно.
2. Протабулировать функцию y=(x)3+х. на отрезке [-4;4] с шагом 0.5.
3. Вычислить сумму квадратов отрицательных чисел из промежутка целых чисел [m;n].
З.Ы. (х)3 - х в кубе...

[Jesus56]

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

[ponchikpk]

а понять пытался?
что такое парные числа?

[PaScalpel]

Сообщение от Jesus56

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

через алгоритм более-менее понятно а вот через етих 3 оператора ... вобще дуб...

понять питался, не понял... увы
парные числа - 2,4,6,8 и тд...

[ponchikpk]

парные числа - 2,4,6,8 и тд...

то есть все делящиеся на 2?

[PaScalpel]

Сообщение от ponchikpk

то есть все делящиеся на 2?

да это парные или двойственные ...
(без остачи)

[Jesus56]

напиши код, как ты думаешь!!!

[PaScalpel]

Сообщение от Jesus56

напиши код, как ты думаешь!!!

я его не составлял так как мне нужно через этих 3 оператора(For, While, Repeat), я просто сказал что с алгоритмами более-менее понятно нежели с этими операторами ...

[ROMA2PVT]

-I-

Var
 i,sum:integer;
begin
sum:=0;
for i:=6 to 24 do
if i mod 2=0 then
begin
 sum:=sum+i;
end;
writeln('SUM:=',sum);
end.

Ну а на табулирование уже много раз делалось.Воспользуйся поиском

[ponchikpk]

как один из вариантов 3

for i:=m to n do
begin
  if i<0 then s:=s+sqr(i);
end;