Объяснение:
var a,b,s,o:integer;
begin
o := 0;
writeln('введите количество секунд');
readln(a);
writeln('1.муж 2.жен');
readln(b);
s:=0;
if b = 1 then
begin
if (a <= 400) and (s=0) then
begin
o := 5;
s := s+1;
end;
if (a <= 500) and (s=0) then
begin
o := 4;
s := s+1;
end;
if (a <= 600) and (s=0) then
begin
o := 3;
s := s+1;
end;
if (a <= 700) and (s=0) then
begin
o := 2;
s := s+1;
end;
end
else
begin
if (a <= 500) and (s=0) then
begin
o := 5;
s := s+1;
end;
if (a <= 600) and (s=0) then
begin
o := 4;
s := s+1;
end;
if (a <= 700) and (s=0) then
begin
o := 3;
s := s+1;
end;
if (a <= 800) and (s=0) then
begin
o := 2;
s := s+1;
end;
end;
writeln('оценка: ',o)
end.
1).необходимо придумать сценарий.
Объяснение:
2).Паучёк (сценарий мультика)
Сцена 1.
Летний вечер. Веранда. Гости пьют чай.
Сверху, на паутинке, спускается маленький паучёк. Медленно.
Его не сразу замечают.
Разнообразная реакция гостей: кто-то умилился, кто-то удивился, кто-то испугался.
Сцена 2.
Ночь.
Паучёк бежит по потолку в комнате Маши. Она спит.
Просыпается, хочет испугаться - но потом передумывает.
С интересом наблюдает, что делает паучёк.
И, когда, он пускается к ней на кроватку - знакомится с паучком.
Сцена 3.
Ночь
Маша подружилась с паучком.
Она его предсталяет всем гостям.
Они ахают и удивляются и умиляются.
И лишь один мальчик, брат её, не рад.
Он зол на паучка - непонятно почему.
Сцена 4.
Мальчик хочет убить паучка.
Но тот очень увёртливый, не получается.
Паучёк спрятался высоко, его никто не видит.
Сцена 5.
Маша вечером долго ждёт паучка, его всё нет.
Маша грустит, ищет его везде.
Не находит.
В слезах ложится спать.
Сцена 6.
Ранним утром паучёк спускается к ней.
Маша очень рада, говорит вякий нежные слова.
Обещает, что не даст его в обиду.
Паучёк тоже рад.
Занавес.
y:= 0
for i:= 0 to 10 do
y:= y + 1 / (i * i);
все, вроде. Проверь на баги, а то у меня нет среды разработки паскаля на PC