В кабинет информатики без учителя не входить.
Не входить в верхней одежде
Без разрешения учителя не садиться и не включать компьютеры.
Посторонии предметы за ПК не брать
По кабинету не бегать.
Нельзя вставать из за компьютера не спросив учителя!!!!
Водитель - автобус и остановка
Автобус - водитель, пассажир, контролёр
Пассажир - автобус, остановка, билет
Контролер - билет и пассажир
Var i,p,n:integer;
begin
readln(i);p:=1;
for n:=1 to i do
p:=p*n^2/(n^2+2n+3);
writeln(p);
не уверен но должно работать...
//Среда Паскаль
Uses crt;
var
a, b, c, d, e: integer;
begin
writeln ('Введите числа');
readln(a,b,c,d,e);
if (a mod 2)=0 then writeln ('Ошибка ввода') else
if (b mod 2)=0 then writeln ('Ошибка ввода') else
If (c mod 2)=0 then writeln ('Ошибка ввода ') else
If (d mod 2)=0 then writeln (' Ошибка ввода ') else
If (e mod 2)=0 then writeln (' Ошибка ввода ') else
Writeln ((a+b+c+d+e) /5);
End.
