Напишите информационную ёмкость дискеты, жесткого диска, cd, dvd, flash-памяти и blue-ray!

251

352

Посмотреть ответы 2

Ответы на вопрос:

sasha19771

Информатика

4,6(93 оценок)

Дискета какая (8 дюймов, 5 дюймов, 3.5 дюйма) , стандарт для 3.5 дюймов: или 720кб, или 1.44мб; жёсткий диск каких годов выпуска (чтобы примерно сказать ёмкость, от 2мб до 3тб) ; cd какого формата (есть мини на 210мб) - 650, 700мб; dvd бывают одно/двухслойные 4.7гб, 8.4гб; про flash то же, что жёсткие; blue-ray - 25г, 50г (2 слоя)

15602218s1

Информатика

4,7(22 оценок)

Думаю нет большой разницы между процедурой и функцией, просто функция куда удобнее. для нахождения нода используется алгоритм эвклида //pascalabc.net function nod(a, b: integer): integer; begin while a < > b do if a > b then a : = a - b else b : = b - a; nod : = a; end; procedure pnod(a, b: integer; var nod: integer); begin while a < > b do if a > b then a : = a - b else b : = b - a; nod : = a; end; begin var a: array of integer : = (16, 32, 40, 64, 80, 128); var n : = a[low(a)]; for var i : = low(a) to high(a) do pnod(n, a[i], n); writeln(n); end.