<u>MS DOS QBasic 1.0</u>
Dim n As Integer, a As Double, b As Double
CLS
INPUT "0-площадь квадрата, иное-периметр прямоугольника"; n
If n = 0 Then
INPUT "Длина стороны: "; a
Print "Площадь квадрата " + Str$(a ^ 2)
Else
INPUT "Длина стороны прямоугольника: "; a
INPUT "Ширина стороны прямоугольника: "; b
Print "Периметр прямоугольника " + Str$(2 * (a + b))
End If
1. Объект - любая часть окружающей действительности, воспринимаемой человеком как единое целое
2. Объекты бывают: предметы, явления, процессы
3. Объекты предметы: телевизор, портфель, трактор
4. Объекты процессы: рисование, свечение, строительство
5. Объекты явления: землетрясение, шторм, наводнение
6. Каждый объект имеет имя, которое отличает его от других объектов
7. Имена бывают общие, единичные, собственные
8. Общие имена: вокзал, морс, горы
9. Каждый объект имеет имя, которое позволяет отличать его от других предметов
10. <span>Европейский город - общее имя
</span>11. Собака Шарик - имя собственное
12. Берлин в Германии - единичное имя
Ответ:
Объяснение:
12*1024*8=98 304 бита
98 304\12288 = 8 бит(1 символ)
N=2^i
N-2^8= 256
Var i,p:integer; beginp:=1;for i:= 20 to 50 doif(i mod 5 = 0) then p:=p*i;writeln('Произведение чисел кратных 5: 'p);end.