1 .Ввести с клавиатуры N вычислить сумму ряда (1+1)в квадрате +(1+2)в квадрате+ . . . +(1 +N)в квадрате . При вводе N=0 -выход из программы


2.Написать программу вычисления факториала натурального числа N, введенного с клавиатуры . При вводе числа 99 -выход из программы


3.Дано уравнение прямой линии у=10х-2. Ввести с клавиатуры координаты точки Х и Y и определить проходит ли прямая через введенную точку


4.Получить и ввести на экран сумму тех членов натурального ряда от 1 до N,которое кратны 5. Количество членов ряда N ввести с клавиатуры

:o:o:o плиззз??

в долгу не останусь..

такие простые задачки сам должен уметь решать.

Вашу школу прогресс миновал?? паскаль уже негде не используется:rolleyes:

турбо паскаль. 90-е годы на дворе:)

а почему во второй задаче при вводе числа 99 нужно выходить из программы?

человек овладевший интернетом как минимум 9 лет назад не знает базовых функций паскаля, ай яй яй )

тут сидит уже сын человека, овладевшего инетом девять лет назад :o:o

стока ****ежа а никто не написсал. :D

пусть школоло само учитсо, а то потом ноют вон, что егэ сдать не могут

var
begin
....
end

ну главное - начало :)

интэтджэр забыл йоба:D

тощна)))
var i: integer;

var i, N, sum: integer;
begin
i:=1; sum:=0;
readln (N);
if N=0 then goto end;
while i <> N do begin
sum:=sum + sqr(1+i);
i:=i+1;
end;
//тут вроде еще надо 1+N в квадрат занести и к сумме прибавить))
end.

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

апнем..

на сынка все свалил...:)

4.
readln(n);
s:=0;
for i:=1 to n do
if (i mod 5)=0 then s:=s+i;
write(s);

3.
readln(x,y);
for i:=1 to x do
begin
y2:=10*x-2;
if y=y2 writeln("пересекаются");
end;

2.
readln(n);
a:=1;
i:=2;
while a "не равно" n do //не помню символа, как в паскале "не равно"
begin
a:=a*i;
i:=i+1;
f:=i;
end;
write(f);

как сделать, чтобы при вводе 99 выходил из программы - не помню
начало программ, объявление переменных и конец сам допишешь)

сынок папой прикинулся. или папа сынком прикинулся.
а паскаль вроде под виндоус 7 не работает или я ошибаюсь?

под виндой 7 все работает. В случае отказа работы можно запустить в режиме совместимости - запустится.

может у него не паскаль а дельфи?:)

название темы читал?)

спасибО! Передал сыну..

да я к тому, что мутно..паскали..сынЫ, отцЫ....:)

чо за прикол, бро?

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

да не.. С++ всего лишь..

program Hursh;
begin
write('What is this?');
end.

смайлик видел? )

Это универсальный ответ на главный вопрос вселенной