Var p :integer; a, s :real;
begin
readln(p); a:= p/4; s:= sqr(a); writeln('Сторона квадрата равна ',a); writeln('Площадь квадрата равна ',s);
<span>end.</span>
<span>Пользовательский интерфейс - это совокупность средств и правил взаимодействия человека и компьютера. Взаимодействие человека и компьютера в наши дни строится на основе объектно-ориентированного графического интерфейса, в котором: все объекты представляются в виде значков; оперирование объектами осуществляется в окнах; основным элементом программного управления является меню; основным элементом аппаратного управления являются различные манипуляторы. Информационное пространство пользователя - это информационные ресурсы (файлы с программами, документы, Web-сайты, фотографии, видеофрагменты и др.), доступные пользователю при работе на компьютере.</span>
По моему так:
Р(ММ) = Р(М) Р(М) = 0,515 0,515 = 0,265;
Р(ДД) = 0,485 0,485 = 0,235;
Р(МД) = 0,515 0,485 = 0,25.
У=124+8×<5
у=5-124>8×
у=-119>8×
Var
i,n:integer;
IsOdd,IsEven:boolean;
begin
IsOdd:=false; IsEven:=false;
Write('Введите три числа: ');
for i:=1 to 3 do
begin
Read(n);
if n<>0 then
if (n mod 2)=0 then IsEven:=True
else IsOdd:=True
end;
Write('Среди введенных чисел ');
if IsOdd then Write('есть нечетное')
else Write('нет нечетных');
if IsEven then Write(' и есть четное')
else Write('и нет четных')
end.
<em><u>Тестовое решение:</u></em>
Введите три числа: 5 8 3
Среди введенных чисел есть нечетное и есть четное