решите паскаль. очен6ь срочно надо((

10.А мы паскаль вобще в школе не проходили.=\

dekameron (14 Декабря 2010 / 15:49)

PROGRAM nn; 
VAR 
p, i, n: integer; 
BEGIN 
readln(n); 
for i:=1 to 2*n-1 do
begin
p:=p+i*(i+1);
i:=i+1;
end; 
writeln(p); 
END. 

Седьмой класс максимум

паскаль только в 10

12, на сколько я знаю с 9-ого изучают

VB с 9го, потом Pascal

6. не повериш это 1 курс универа

Добавлено через 03:52 сек.
а еще 2 из контрольной решите? очень надо

b1Ng0 (14 Декабря 2010 / 17:31)
паскаль только в 10

у нас он в 9м только начался...

15.Да кидай.
Для повышения квалификации постараюсь решить))

контрольная работа:
1) УСЛОВНЫЙ ОПЕРАТОР IF:
даны числа фбибсю определить является ли число с среднем арифметическим чисел a и b/
2)ЦИКЛЫ
составить программу, которая запрашивает пароль (любое число) до тех пор, пока он не будет правильно введен.
p.s. нужно с объяснениями т.е. что за что отвечает в программе. я в этом просто плохо шарю, да и по другим предметам долгов много., не успеваю все делать(

Ну что такое числа фбибсю я не знаю
Вторая вот.

program passwords;
var en,go:string;
begin

go:='password'; {Пароль}

while not (go=en) do readln(en);

end.

Можно еще извратиться так

program passwords;
var str,password:string;
var en,go:integer;
begin

str:='password'; { Пароль}
en:=1;

while go<en do begin
inc(go,1);
inc(en,1);
readln(password);
if str=password then exit;
end;
end.

это в следующем семестре будет. есть еще варианты решения?