Var x,y,z:integer; a,b:real;
Begin
write('x='); readln(x);
write('y='); readln(y);
write('z='); readln(z);
a:=((2*x)+(3*y)-z)/(3+(2*x));
b:=((x*x)+4)/(abs(y)-2);
writeln('a=',a); writeln('b=',b);
End.
C:\Мои документы\6 класс\Блинов\Реверат.doc
C:\Фильмы\Сумерки.avi
C:\Мои документы\6 класс\Мальцев\Рисунки\Эскиз.bmp
Var
i:integer;
c:array [1..15] of integer;
a:array [1..15] of integer;
begin
for i:=1 to 15 do begin
c[i]:=Random (100);
end;
for i:=1 to 15 do begin
if (c[i] mod 2 = 0) then
a[i]:= c[i] div 2
else
a [i]:= c [i] *2;
end;
write ('Массив С: ');
for i:=1 to 15 do begin
write (c [i]);
write (' ');
end;
writeln (' ');
write ('Массив A: ');
for i:=1 to 15 do begin
write (a[i]);
write (' ');
end;
end.
Ответ на картинке,сначала ты объявляешь начало алгоритма прграммы(в овале),после вводишь данные (параллелограмм),а далее ставишь условие(ромб),выводишь его по формуле(прямоугольник),и заканчиваешь алгоритм(овал).