//PascalABC.NET 3.1 сборка 1219 (от самих создателей)
function IsPrime(x: integer): boolean;
begin
var sqx := Round(Sqrt(x));
var i := 2;
while (i <= sqx) and (x mod i <> 0) do
i += 1;
Result := i > sqx;
end;
begin
Range(ReadInteger('a ='), ReadInteger('b =')).Where(IsPrime).Print;
end.
// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
uses GraphABC; // графическая библиотека
begin
Pen.Color:=clBlue; // выбрать перо синего цвета
Pen.Width:=3; // толщина пера 3 пикселя
DrawCircle(100,120,50); // окружность c центром (100,120) и R=50
Brush.Color:=clPink; // кисть розового цвета
FillCircle(100,120,50) // закрасить окружность
end.
S=((A+B)*H)/2;Где а и б основания, а Н высота. Пусть основание х, значит, другого 0.6х. Подставляем.(х+0.6х)*8/2=320.
x=80/1.6=50. 50см это одно, а 30см другое.Если ОН-это высота.
Привет
здаров
приветульки
здравствуй мой друг
здравствуйте мой друг
Нет тебя не взломали такое бывает я не всети у других пишет что я всети лагает вайбер пароль тоже бывает тебя никто не взломал но на всякий случяй поменяй пароль