// PascalABC.Net procedure RectangleSquare; var a,b:double; begin Write('Введите через пробел длины сторон прямоугольника: '); Read(a,b); Writeln('Площадь прямоугоьника равна ',a*b) end;
var i:byte; begin for i:=1 to 3 do RectangleSquare end.
Тестовое решение: Введите через пробел длины сторон прямоугольника: 3 7 Площадь прямоугоьника равна 21 Введите через пробел длины сторон прямоугольника: 12.4 15.8 Площадь прямоугоьника равна 195.92 Введите через пробел длины сторон прямоугольника: 14 12.5 Площадь прямоугоьника равна 175
2 в.н.э - Изобретение технологии изготовления бумаги в Китае Середина 15 в. - Начало книгопечатания в Европе 2-1 тысячелетия до н.э - Появление алфавитного письма в Финикии 80- гг. 20 в. - Появление первых лазерных дисков 5-15 тысячелетия до н.э - Первые следы иероглифического письма в Древнем Египте Середина 16 в - Начало книгопечатания в Росии 60-е гг. 20 в. - Появление первых жестких дисков для компьютеров 1895 г - Демонстрация первого кинофильма 70-е гг 19 в - Первая запись звука с фонографа 20-е гг 20 в - Изобретение магнитофона 1839 г. - Изобретение фотографии
1) Внутренняя нужно для временного хранения программ во время работы компьютера, Внешняя нужно для долгого хранения данных 2) Принцип заключается в том, что команды представляются в битовой форме и хранятся в том же Оперативном Запоминающем Устройстве, что и обрабатываемые данные. 3) Дискретные объекты состоят из отдельных частиц. Например: дом дискретен так как состоит из кирпичей Память состоит из отдельных ячеек – битов. 4) первый вопрос) наименьшая единица измерения информации. второй вопрос) краткое прилагательное, образованное от глагола бить. 5) Во внутренней памяти компьютера все байты пронумерованы. Нумерация начинается с нуля. Порядковый номер байта называется его адресом. Занесение информации в память, а также извлечение ее из памяти, проводится по адресам.
procedure RectangleSquare;
var
a,b:double;
begin
Write('Введите через пробел длины сторон прямоугольника: '); Read(a,b);
Writeln('Площадь прямоугоьника равна ',a*b)
end;
var
i:byte;
begin
for i:=1 to 3 do RectangleSquare
end.
Тестовое решение:
Введите через пробел длины сторон прямоугольника: 3 7
Площадь прямоугоьника равна 21
Введите через пробел длины сторон прямоугольника: 12.4 15.8
Площадь прямоугоьника равна 195.92
Введите через пробел длины сторон прямоугольника: 14 12.5
Площадь прямоугоьника равна 175