На языке паскаль, за
взято 3,14:
program ball;
var s,r, r2 : real;
begin
writeln('Введите радиус шара');
readln(r);
r2:=sqr(r);
s:=4*3.14*r2
writeln('Площадь шара равна ', s);
readln;
end.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
function F(n: integer):int64 :=
n <= 1 ? 1 : 2.To(n).Aggregate(int64(1), (p, q)-> p * q);
begin
Range(1, ReadInteger('n=')).Select(t -> F(t)).Sum.Println
end.
<h2>n= 10</h2><h2>4037913 </h2>
Цикл — разновидность управляющей конструкции в высокоуровневых языках программирования, предназначенная для организации многократного исполнения набора инструкций.
Команда цикла в паскале:
1)for x to n do
begin
end.
2) while < условие> do <оператор 1>; {Пока … делай ….}
3)repeat { повторяй … }
<оператор 1>;
< оператор 2>;
…
until {до…} <условие>
2.
Условие цикла - это то, где мы объявляем задачу:
"for 1 to 2 do"
Тело цикла -Последовательность инструкций, предназначенная для многократного исполнения, называется телом цикла.
пример:
begin
(действие)
end.
Так как действия по изготовлению ручек должны выполняться последовательно, то общее время вычисляется так: 20+20+10*20 = 240 мин.
Можно это показать схематично:
- - - - - - - - - - действия Васи
- - - - - - - - - - действия Пети
- - - - - - - - - - действия Маши
Смотри хороший сайт_pascal.helpov.net