Напишите в паскале говорят, что плохой программист – это тот, кто считает, что в одном килобайте 1000 - id123130020210807 от LeeAddon 07.08.2021 01:23

Question

Информатика: Напишите в паскале говорят, что плохой программист – это тот, кто считает, что в одном килобайте 1000 байт, а хороший программист – это тот, кто полагает, что в одном километре 1024 метра. многим эта шутка понятна, так как все знают, что в процессах, связанных с информатикой и компьютерной техникой, фигурирует множество значений, выражаемых степенью двойки, то есть чисел вида 2k, где k – некоторое неотрицательное целое число. назовем такие числа бинарными. это такие числа как 2, 4, 8, 16, 32 и т.д.

LeeAddon · Accepted Answer

//Раз на первый вопрос господина Alviko Вы не ответили, буду считать что количество столбцов и строк уже задано.
//Pascal ABC.NET v3.1 сборка 1172

Const
n=3; //количество строк
m=4; //количество столбцов

Var
f:text;
ma:array[1..n,1..m] of integer;
i,j,s:integer;
begin
assign(f,'matrix.txt');
reset(f);
for i:=1 to n do
begin
for j:=1 to m do
   begin
   read(f,ma[i,j]);
   s:=s+ma[i,j];
   end;
end;
close(f);
for i:=1 to n do
begin
writeln;
for j:=1 to m do
   write(ma[i,j]:4);
end;
writeln;
write(s);
end.

matrix.txt:
1 2 3 4
4 5 6 4
7 8 9 4
Вывод программы:

   1   2   3   4
   4   5   6   4
   7   8   9   4
57

MOGZ ответил