Кто шарит в паскале

[Artyom Ushakov]

Короче задали написать 2 задачи в паскале (9 класс, 2 четверть)
Кто поможет даю 3к монет (все свои монеты)
Пишите в личку
Pascal abc free вся xуйня

Условия

1)Найти сумму всех натуральных чисел от 1 до n
2)Вычислить сумму ряда 1/2 +1/3+1/4+...1/600

P.S. собираюсь сдавать физику и информатику
Но нихрена не шарю
Кто поможет вообще с этим паскалем обосанным
Что значит всякие integer и т.д.
Задание сделано

[Креветка]

Одного не понимаю. Вас этому учат, вам это пригодится, а вы, вместо того, чтобы делать, просите других всё сделать за вас. Смысл вообще посещения школы? Можешь сразу идти подметать улицы?

[MauZzeR]

нет. Это им не пригодится.

Напиши в лс ВК. Я помогу.

[Artyom Ushakov]

во первых, я только сейчас вспомнил что на завтра задали 2 задачи
А я в паскале вообще не понимаю, потому что у нас учитель по информатике мягко говоря е6анный

[MixmeN]

Написал в ЛС:):

[Креветка]

Соболезную вам, а особенно вашему учителю

[Artyom Ushakov]

Ты мне написал просто 2 программы, я тебе даже условий не давал...
да бывает

[-SHEOL-]

в принципе это все легко)
1 курс "Техник программист" у нас урок такой даже есть "Алгоритмизация и программирование" )

[MauZzeR]

В лс отпиши, ну.

[MartyRay]

Я отучился на вышке на программера, но помогать принципиально не стану. Учись сам!

[Artyom Ushakov]

Ну красава.

[MaXi]

1. http://www.cyberforum.ru/pascal/thread399949.html

var i,n,s:integer;
begin
 write('N=');
 readln(n);
 s:=0;
 for i:=1 to n do s:=s+i;
 writeln('Summa:',s);
end.

[Artyom Ushakov]

это какая программа?

[MaXi]

2. http://cyberlesson.ru/zadachi-po-pascal-vychislit-summu-ryada-chisel-1-12-13-1n/

var sum:real;
i:integer;
begin
 sum:=0;
 for i:=2 to 600 do sum:=sum+1/i;
 writeln('Symma = ', sum);
end.

[Kolya Timoshenko]

у нас тоже