Var
i: integer;
begin
for i:=1 to 10 do
writeln(i, ' Кбайт = ', i*1024, ' байт');
<span>end.
</span><span>Бейсик
</span>DIM I AS INTEGER;
FOR I:=1 TO 10
PRINT I*1024
NEXT I
Польза:
Домашку можно списать)))
1. Можно быстро узнать необходимую информацию;
2. Можно общаться с людьми из других мест;
3. Продвигать бизнес(реклама, видеоконтент и т.д.);
4. Можно заработать много денег, ведя блог или канал
5. Через тот же блог или канал можно творчески самовыражаться.
Вред:
1. Вред компьютера и др. гаджетов для зрения
2. Зависимость от соц. сетей(лайков, комментов,репостов);
3. Трата времени впустую в ленте вк и инст;
4. Через интернет за нами всеми могут тайно следить, что нарушает наши права
5. Распространение контента 18+(жестокость, насилие и тд, вы поняли)
Программа находится во вложении, надеюсь поможет.
Программы для решения задач - в прилагаемом файле.