полащадь круга=pi*(r^2), квадрата=а^2-> при радиусе равном 1=3,14.... квадрат при той же стороне равен площади 1см^2 ответ круга больше)
Переводим цену пирожка в копейки (по формуле 100a + b), умножаем на n и получаем цену n пирожков в копейках. Делим с остатком на 100 и получаем в целой части число рублей, в остатке – число копеек.
Pascal:
program pies;
var a, b, n, total: integer;
begin
writeln('Введите значения a, b, n:');
read(a, b, n);
total := n * (100 * a + b);
writeln('Цена пирожков: ', n div 100, ' руб. ', n mod 100, ' коп.')
end.
что-то типа этого:
<span>const n = 8, m = 8;
var
A: array[1..n,1..m] of integer;
i, j, sum, product: integer;
isnotnull: boolean;
begin
randomize;
writeln('Случайная матрица:');</span><span> for i:=1 to n do begin
for j:=1 to m do begin
A[i,j] := random(51) - 25;
write(A[i,j]:5);
end;
writeln;
end;</span><span> sum := 0;
for i:=1 to n do
if A[i,n-i+1] < 0 then
sum := sum + A[i,n-i+1];
writeln('Сумма отрицательных элементов побочной диагонали = ', sum);</span><span> product := 1;
isnotnull := False;
for i:=1 to n-1 do
for j:=2 to n do
if (j > i) and (A[i,j] <> 0) then begin
isnotnull := True;
product := product * A[i,j];
end;
if isnotnull
writeln('Произведение ненулевых элементов в области выше главной диагонали = ', product)
else
writeln('Ненулевых элементов в области выше главной диагонали нет.', product);</span><span> readln;
end.</span>
#include <iostream>
#include <cmath>
using namespace std;
const double eps = 1E-4;
double a(int n) { return pow(-1.0 / 3.0, n); }
int main()
{
<span> double ans = 0;
</span><span> int i = 1;
</span><span> while (abs(a(i)) >= eps)
</span><span> {
ans += a(i);
++i;
}
</span><span> cout << ans << endl;
</span><span> return 0;
</span><span>}</span>
