var s, p,r:real;
function Sq(x:real):real;
begin
p:=3.14;
Sq:=p*r*r;
end;
begin
writeln ('Введите радиус r ');
read (r);
writeln ('Площадь круга = ',Sq(r));
end.
Задача 2 Написать программу, которая делает вызов 1-ой функции. Функция производит подсчёт десяти чисел Фибоначчи. Результаты передают основной программе.
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть