Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
a,b,c: real;
begin
readln(a,b,c);
writeln((a+b+c)/3);
end.
program divisors;
n,i: integer;
readln(n);
for i: =n downto 1 do if n mod i = 0 then write(i,' ');
сделать сначала 10х10 а потом растягиванием
а вообще легче всего будет написать код в vba (вставлять через макрос)
for i = 1 to 1000
for j =1 to 1000
cells(i,j)=i*j
next j
next i
длину окружности
l=2*пи*r
r=√(х^2+х^2/2)
l=2*пи*√(х^2+х^2/2)
подставим х
при х=2.56789
l=19.7607=19.761
при х=345.678
l=2660.09556=2660.096
Популярные вопросы