var
i, n:integer;
price:real;
begin
n := 20;
price := 20.4;
for i := 1 to n do
writeln('Стоимость ', i:3, ' ед. товара составляет ', price * i:8:2, ' руб.');
end.
//вторая задача
var
i, f, n:integer;
begin
f := 453;
n := 10;
writeln('фунты граммы');
for i := 1 to n do
writeln(' ', i:2, i * f :11);
end.
//третья задача
var
i, n:integer;
k:real;
begin
n := 20;
writeln('Введите курс '); readln(k);
writeln('доллары рубли');
for i := 1 to n do
writeln(' ', i:2, i * k:13:2);
end.
Для получения корня между 
и 
n = 1.
nh = A div C - количество квадратов умещающихся по-вертикали
nw = B div C - количество квадратов умещающихся по-горизонтали
n = nh * nw = общее количество квадратов.
Sr = A * B - 2*C*C
Код:
using System;namespace ThisAnswerIsNotMine { class Program { private static void Eq(double a) { var x = Math.Atan(1 / (Math.Exp(a) + 1)) + Math.PI; Console.WriteLine($"Для a = {a}, x = {x}"); } private static void Squares(int A, int B, int C) { int nh = A / C; int nw = B / C; int n = nh * nw; int Sr = A * B - 2*C*C; Console.WriteLine($"Количество квадратов со стороной {C} в прямоугольнике размером {A}x{B} равно: {n}"); Console.WriteLine($"Площадь оставшегося куска {Sr}"); } private static void Main() { Eq(double.Parse(Console.ReadLine()!)); Squares(int.Parse(Console.ReadLine()!), int.Parse(Console.ReadLine()!), int.Parse(Console.ReadLine()!)); } }}
