Ответ:
Объяснение:
var i:integer;
begin
for i:=1 to 30 do begin
if i mod 2 = 0 then begin
writeln('*');
end
else
writeln(i);
end;
end.
{т.е. квадрат лежит на оси x начиная от 0 до 5, т.к. сторона квадрата =5, аналогично и с осью y, отсюда условия x>=0 x<=5 y>=0 y<=5}
var
x,y:real;
begin
readln(x,y);
if (x>0)and(x<5)and(y>0)and(y<5)then
writeln('попадает')
else
writeln('не попадает');
end.
Альтернатива интернету конечно же есть к примеру чтение книг. Живопись. Катание на велосипеде,самокате,роликах.
Интернет называют уникальным изобретением потому что:
1)Благодаря интернету и поисковым машинам можно найти то, о чём даже не подозреваешь.
2)Просто нужно ввести любое словосочетание и ву'а'ля.
Также благодаря ему мы можем общаться/обмениваться информацией в различных социальных сетях.
<span>3)Если гипотетически представить, что интернет пропадёт - думаю, это станет глобальной катастрофой в истории человечества.</span>
от точки во всех фигурах прочертил линию.
на пример:чертишь черту у фигуры номер один и получается квадрат.___
|. | с 3 получается надо..
-----. раскрасить.
3 × 30 × 60 = <span>5400 (всего символов)
64 = </span>2^6 (<span>6 бит = 1 символ</span>)
5400 × 6<span> = </span><span>32400 бит
</span>32400 / 8<span> = </span><span>4050 байт </span>