Program lol;
var a:integer;
begin
for a:=100 downto 1 do
begin
if a mod 3 = 0 then
writeln(a);
end;
<span>end.
P.S.
в строке </span>for a:=100 downto 1 do вместо 100 вставь нужное тебе значение советую меньше 1000 а то долго считает<span>
</span>
5) Стоял красивый букет.
Принесли интересную книгу. Получали отличные знания
40х60= 2400символов
2400х8:8= 2400 байт
16кб= 16х1024= ...
полученное число делишь на 2400 и получаешь ответ
<span>Текст,записанный с использованием 64 символьного алфавита состоит из 52 символов.То обьем текста равен 3 328 бит</span>
1. Объект - любая часть окружающей действительности, воспринимаемой человеком как единое целое
2. Объекты бывают: предметы, явления, процессы
3. Объекты предметы: телевизор, портфель, трактор
4. Объекты процессы: рисование, свечение, строительство
5. Объекты явления: землетрясение, шторм, наводнение
6. Каждый объект имеет имя, которое отличает его от других объектов
7. Имена бывают общие, единичные, собственные
8. Общие имена: вокзал, морс, горы
9. Каждый объект имеет имя, которое позволяет отличать его от других предметов
10. <span>Европейский город - общее имя
</span>11. Собака Шарик - имя собственное
12. Берлин в Германии - единичное имя