Она работает в режиме онлайн:D
Ответ:
С точки зрения информатики наиболее важными представляются следующие общие качественные свойства: достоверность, полнота, точность, актуальность, полезность, ценность, своевременность, понятность, доступность, краткость и пр. Объективность информации
Визуальная — воспринимаемая органами зрения.
Звуковая — воспринимаемая органами слуха.
Тактильная — воспринимаемая тактильными рецепторами.
Обонятельная — воспринимаемая обонятельными рецепторами.
Вкусовая — воспринимаемая вкусовыми рецепторами.
Program asd;
Const n=5;
m=4;
Var i,j,p:integer;
A:array[1..n,1..m] of integer;
BEGIN
For i:=1 to n do
begin
For j:=1 to m do
begin
A[i,j]:=Random(10);
Write(A[i,j]:3);
end;
Writeln;
end;
P:=1;
For i:=1 to n do
For j:=1 to m do
begin
if A[i,j]<>0 then p:=p*A[i,j];
end;
Writeln('Произведение ненулевых элементов массива: ',p);
<span>END.</span>
Не совсем понял вопрос, но попробую ответить:
var y,a,b:integer;
Begin
readln(a,b);
y:=(a+b)*(a+b);
writeln('y = ',y);
readln;
end.
Вводить 2 числа через пробел.
108000 байт. Просто надо перемножить 1*45*60*40.