Составть пожалуйста 2 программы для Паскаля,очень прошу, завтра информатика и я ничего не...

0 голосов
61 просмотров

Составть пожалуйста 2 программы для Паскаля,очень прошу, завтра информатика и я ничего не знаю!!!


image

Информатика (42 баллов) | 61 просмотров
Дан 1 ответ
0 голосов

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.

(36 баллов)
0

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.

0

Для первого выражения

0

Спасибо тебе огромное)

0

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.

0

Для второго

0

Спасибо еще раз)

0

Не за что