Создать программу! тема "организация подпрограмм через функцию" дан параллепипед с измерениями а,b, c. составить программу для нахождения площади полной поверхности, используя подпрограмму нахождения площади прямоугольника.

253

360

Посмотреть ответы 2

Ответы на вопрос:

Agusha111

Информатика

4,4(91 оценок)

Вычисление производим по формуле function sp(x,y: real): real; begin sp: =x*y end; var a,b,c,s: real; begin write('введите размеры сторон a,b,c: '); read(a,b,c); s: =2*(sp(a,b)+sp(a,c)+sp(b,c)); writeln('площадь поверхности равна ',s) end. тестовое решение: введите размеры сторон a,b,c: 2.5 3.15 4 площадь поверхности равна 60.95

senazubik63kfkd

Информатика

4,5(8 оценок)

Вариант с проверкой правильности ввода var n, i: integer; begin n : = 0; while (n < = 1) or (n > 10) do begin write('введите n в диапазоне от 2 до 10 = '); readln(n); end; for i : = 1 to 9 do writeln(n, ' * ', i, ' = ', n * i); end. без проверки var n, i: integer; begin write('введите n в диапазоне от 2 до 10 = '); readln(n); for i : = 1 to 9 do writeln(n, ' * ', i, ' = ', n * i); end.