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

[Креветка]

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

[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]

у нас тоже