Эта клавиша предназначена для исполнения двух основных функций: для выбора либо перехода между несколькими элементами или диалоговыми окнами с комбинаций клавиш (эта функция отлично выручает, если не работает мышка)
Поверхность теплицы - это половина полной поверхности цилиндра радиуса R и высоты C, т.е.(2×π×R×C+2×π×R²)/2 = π×R×(C+R). Из нее вычитаем площадь двери A×B и полученную площадь умножаем на количество теплиц N. Получаем S=(π×R×(C+R)-А×В)×N A, B, C, R, N - это исходные данные
// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
begin var n:=ReadInteger('Количество теплиц:'); var a,b,c,r:real; Write('Введите радиус теплицы и её длину, м: '); Read(r,c); Write('Введите размеры двери теплицы, м: '); Read(a,b); Writeln('Потребуется плёнки, м: ',(pi*r*(c+r)-a*b)*n:0:2) end.
Пример Количество теплиц: 7 Введите радиус теплицы и её длину, м: 3.5 18.4 Введите размеры двери теплицы, м: 1.1 1.9 Потребуется плёнки, м: 1670.99
Const maxn=15; var a: array[1..maxn] of integer; skv,prod,gr,i: integer; begin writeln('введите ',maxn,' чисел'); skv:=0; prod:=1; gr:=0; for i:=1 to maxn do begin write(i,': '); readln(a[i]); if a[i]<0 then skv:=skv+a[i]*a[i]; if (a[i] mod 2 = 0) and (i mod 2 = 0) then prod:=prod*a[i]; if abs(a[i])>100 then gr:=gr+1; end; writeln('сумма квадратов отрицательных: ',skv); writeln('произведение четных на четных местах: ',prod); writeln('больше 100 по модулю: ',gr); end.
введите 15 чисел 1: 151 2: -231 3: 104 4: 19 5: 36 6: -112 7: 5 8: 8 9: 11 10: 13 11: 45 12: 5 13: 6 14: 17 15: 19 сумма квадратов отрицательных: 65905 произведение четных на четных местах: -896 больше 100 по модулю: 4
Для того, что бы отступить абзац.