Var
ch,sum,i:longint;
begin
sum:=0;
WriteLn('Вводите числа.');
for i := 1 to 5 do
begin
readln(ch);
inc(sum,ch);
end;
WriteLn('Ответ: ',sum);
end.
1) возводим в квадрат один из катетов
2) возводим в квадрат второй катет
3) складываем результаты
4) извлекаем корень из получившейся суммы
<u>// PascalABC.NET 3.3, сборка 1607 от 31.12.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Количество строк (столбцов) в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,n,10,99);
a.Println(3); Writeln(3*n*'-');
for var i:=0 to n-2 do
for var j:=i+1 to n-1 do a[i,j]:=0;
Writeln('*** Выходной массив ***'); a.Println(3)
end.
На один пиксель(дот) приходится 32 бита или 4 байта.Бумага формата А4 а значит её размер 8.3 на 11.7 дюймов(8.3*11.7=97.11 дюймов всего).На один дюйм приходится 600 пикселей.Всего пикселей 600*97.11=58266.32бита умножаем на всего пикселей 58266=1864512бита или 1864512\8=233064 байта или 233064\1000=233,064 кило байта