Площадь находиться длинну умножить на ширину,а периметор все стороны надо сложить
Если чисел 7, то самое наименьшие 1. А если там 7 разных чисел, то из следовало написать.
program abc;
var
i, j:integer;
pr:boolean;
begin
writeln('Простые числа в диапазоне от 1 до 100: ');
for i := 2 to 100 do
begin
pr := true;
for j := 2 to i div 2 do
if i mod j = 0 then
begin
pr := false;
break;
end;
if pr then
write(i, ' ');
end;
writeln;
end.
перезагрузки игру или проще начни занова или выключи интернет и антивирусник но не забудь включить когда из игры выйдеш у меня сробатывало
Если x вводится с клавы:
var x:integer;
begin
readln(x);
writeln( 4*sqr(x)+2*(sqr(x)+1));
<span>End.
Если нет, то
</span>
begin
writeln( 4*sqr(3)+2*(sqr(3)+1));
<span>End.</span>