Var
a:array[1..12]of integer;
m, n:integer;
Begin
a[1]:=31;a[7]:=31;
a[2]:=28;a[8]:=31;
a[3]:=31;a[9]:=30;
a[4]:=30;a[10]:=31;
a[5]:=31;a[11]:=30;
a[6]:=30;a[12]:=31;
Write('Введите номер месяца -> ');
Readln(m);
Write('Год високосный(1 - да || 0 - нет)?');
Readln(n);
if (m = 2) then Writeln(a[m] + n) else
Writeln(a[m]);
end.
так
5-3=2л в 5литровом балоне и 3 л в 3литровом балоне
выливаем 3л и переливаем из 5литровой оставшиеся 2л в 3 литровый балон
набираем 5 литров и переливаем 1 л в 3литровый балон
Пролемы?
Ничего не будет напечатано, так как в программе кроме большого количества опечаток есть и явная ошибка: переменная sr не может иметь тип integer (это следует из оператора <span>sr:=s/3).</span>
Program p77v;
var
p:real;
i,n:integer;
begin
Write('n='); Read(n);
p:=1;
for i:=1 to n do p:=p*(1+1/(i*i));
Writeln('П=',p)
end.
<u>Пример</u>
n=10
П=3.34284711657368
Во вложении дан контрольный пример.
div - целая часть из частного ( т.е цифры до запятой)
Ответ:2