Составть пожалуйста 2 программы для Паскаля,очень прошу, завтра информатика и я ничего не знаю!!!
Answers & Comments
bogatoffvovaFelix
Var a,z,x,y:real;beginwrite('Введите значение z: ');readln(z);write('Введите значение x: ');readln(x);write('Введите значение y: ');readln(y);a:=(44*z+x)/(y*y*y)-5;writeln('a = ',a);end.
0 votes Thanks 0
bogatoffvovaFelix
var a,z,x,y:real; begin write('Введите значение z: '); readln(z); write('Введите значение x: '); readln(x); write('Введите значение y: '); readln(y); a:=(44*z+x)/(y*y*y)-5; writeln('a = ',a); end.
bogatoffvovaFelix
var b,z,x,y:real; begin write('Введите значение x: '); readln(x); write('Введите значение y: '); readln(y); write('Введите значение z: '); readln(z); b:=sqr(x)*((y*y*y)-2)+sqrt(3+z)/8; writeln('b = ',b); end.
Answers & Comments
begin
write('Введите значение z: ');
readln(z);
write('Введите значение x: ');
readln(x);
write('Введите значение y: ');
readln(y);
a:=(44*z+x)/(y*y*y)-5;
writeln('a = ',a);
end.
begin
write('Введите значение x: ');
readln(x);
write('Введите значение y: ');
readln(y);
write('Введите значение z: ');
readln(z);
b:=sqr(x)*((y*y*y)-2)+sqrt(3+z)/8;
writeln('b = ',b);
end.