Программа в PascalABC
var
c, b, a, d, Z : Integer ;
begin
writeln('(c+4ba)d/2cb+(2a2c)') ;
writeln(' Введите значение с ') ;
readln(c) ;
writeln('Введите значение b') ;
readln(b) ;
writeln('Введите значение а') ;
readln(a) ;
writeln('Введите значение d') ;
readln(d) ;
Z:=((c+(4*b*a))*(d/(2*c*b))+(2*a*2*c)) ;
writeln('(c+4ba)d/2cb+(2a2c) =' , ' Z') ;
End.
Должно сработать
Var a,b,c:real;
begin
writeln('введите два числа');readln(a,b);
c:=a+b;
writeln('сумма=',c);
end.
Program nau;
var s,m,t: real;
begin
writeln ('введите расстояние и среднюю скорость движения');
readln (s,m);
t:=(s/m)*60;
writeln('время, потраченное на дорогу, в минутах = ',t);
<span>end.</span>
Var
i, p: integer;
begin
p := 2;
for i := 3 to 7 do p:=p*i;
Writeln('Произведение равно ',p);
end.
<em><u>Тестовое решение:</u></em>
Произведение равно 5040
Var a,b,c:real;
begin
writeln('введите значения трех углов:');
readln(a,b,c);
if (a+b+c)<>180 then writeln('введены некорректные данные')else
if (a=90)or(b=90)or(c=90) then writeln('прямоугольный')else
if (a=b)and(b=c) then writeln('равносторонний')else
if (a=b)or(b=c)or(a=c) then writeln('равнобедренный')else
writeln('разносторонний')
end.