Решите примеры ** языке Паскаль пожаалуйстаа прошу!

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

Решите примеры на языке Паскаль пожаалуйстаа прошу!


image

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

Program Test;

Var ans1, ans2, ans3: real;

Begin

ans1 := (158 - sqr(12.1)) / 5.1 * 10.2;

ans2 := 256 + (148 + sqr(1.25)) / sqrt(15);

ans3 := sqr(16.2) + 526 / sqrt(9);

Writeln();
Writeln('ans1 = ', ans1);
Writeln('ans2 = ', ans2);
Writeln('ans3 = ', ans3);

End.

P.S. ans1, ans2, ans3 - это ответы на а, б, в соответственно

(13.4k баллов)