На массивы строк, . дан массив строк, в каждой строке записано 1 целое число. найти сумму чисел. написать процедуры ввода и вывода массива, а также процедуру/функцию для суммы чисел.
Компьютер понадобился человеку для более быстрых вычислений, само слово compute переводится с английского как "считать". Затем компьютер использовали и используют для хранения и обработки больших данных.
Я понимаю под значением слова "универсальный" - это то, что компьютер можно использовать как для работы, так и для развлечения, общению и т.п., то есть он заменил множество вещей.
У компьютера очень много профессией, что все их не перечислить. Например, в программировании, бухучете, инженером деле и т.д.
1) Пусть время, за которое передают файл размером 10 Мбайт со скоростью 2 621 440 бит/c, равно X. Следовательно, имеем уравнение: 10 Мбайт / X = 2 621 440 бит/c 10 * 1024 * 1024 * 8 бит / X = 2 621 440 бит/c 83 886 080 бит / x = 2 621 440 бит/c X = 83 886 080 бит / 2 621 440 бит/c = 32 c ответ: За 32 секунды.
2) Пусть наибольший размер файла, который может быть передан через соединение со скоростью 256 000 бит/с за 10 минут, равен X. Следовательно, имеем уравнение: X / 10 мин = 256 000 бит/c X / 10 * 60 с = 256 000 бит/с X / 600 c = 256 000 бит/с X = 256 000 бит/с * 600 с = 153600000 бит = 19200000 байт = 18750 Кбайт ответ: наибольший размер файла – 18750 Кбайт
3) В 2 байтах может уместится 65 536 разных значений, а именно столько разных цветов мы имеем. Значит, для хранения каждого пикселя нам надо 2 байта. 1024x800 = 1024*800 = 819 200 пикселей, а соответственно 2 * 819 200 = 1 638 400 байт. Пусть время, за которое передают файл размером 1 638 400 байт со скоростью 102 400 бит/c, равно X. Следовательно, имеем уравнение: 1 638 400 байт / X = 102 400 бит/c 1 638 400 * 8 бит / X = 102 400 бит/c 13107200 бит / X = 102 400 бит/с X = 13107200 бит / 102 400 бит/с = 128 c ответ: 128 секунд.
procedure Ввод(a: array of string);
begin
for var i := 0 to a.High do
a[i] := ReadlnString;
end;
procedure Вывод(a: array of string);
begin
a.PrintLines
end;
function Сумма(a: array of string): integer;
begin
Result := a.Select(t -> t.ToInteger).Sum;
end;
begin
var n := ReadlnInteger('Укажите общее количество строк:');
var a := new string[n];
Ввод(a);
Вывод(a);
Println('Сумма равна', Сумма(a))
end.