В)часть памяти на жестком <span>диске почтового сервера, отведенную для пользователя;</span>
Алгоритм:"Тушение костра"
Если костер горит,то необходимо залить его водой.
начало--->горит?да----->залить его водой---->конец.
Program PAS;
Const
N = 10;
Var
A:array[1..N] of integer;
i:integer;
S,P:real;
Begin
S:=0;
P:=1;
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
S:=S+A[i];
P:=P*A[i];
End;
WriteLn;
WriteLn('Sr = ',S/N);
WriteLn('P = ',P);
End.
Средний возраст (x+y)/2
возраст тани отличается |(x+y)/2-x|
возраст мити отличается|(x+y)/2-y|
главное про модул не забудь, а то может быть возраст с минусом)
var
a: integer;
begin
readln(a);
if(a mod 4 = 0) and (a mod 100 <> 0) or (a mod 400 = 0) then
writeln('Год високосный')
else
writeln('Год не високосный');
end.