X:integer;
y:real;
function f(a:real):real;
begin
if a>=0 then
begin
f:=exp(a*ln(10));
end;
if a<0 then
begin
f:=20*sqr(a);
end;
end;
begin
x:=-5;
while x>-6 do
begin
y:=(exp(3*ln(f))+f(x))/(abs(f(x+5)));
if x=0 then writeln('y = Рішення не має')
else writeln('y =', y);
x:=x+5;
while x>25 do
end;
end.
17.pas(20) : Нет перегруженной подпрограммы с такими типами параметров

Const   n = 5; var   i: integer;   a: array[1..n * 2 + 1] of integer; begin   writeln('исходный массив: ');   for i : = 1 to 2 * n do   begin       a[i] : = random(99) + 1;       write(a[i] : 5);   end;   for i : = 2 * n + 1 downto n + 1 do       a[i] : = a[i - 1];   a[n + 1] : = 0;   writeln();   writeln('полученный массив: ');   for i : = 1 to 2 * n + 1 do       write(a[i] : 5); end.

#include <iostream>

int gg(int k, int p, double m)

{

p = (k >= p) ? p : p / k;

return (m * 2 * p);

}

int main()

{

int k, p;

double m;

std::cout << "Сколько котлет можно одновременно положить на сковороду ? ";

std::cin >> k;

std::cout << "Сколько минут жарится одна сторона котлеты ? ";

std::cin >> m;

std::cout << "Сколько котлет вы будете жарить ? ";

std::cin >> p;

std::cout << p << " котлет пожарятся с двух сторон минимум за " << gg(k, p, m) << " минут";

}