Program foo;
var
b : array[1..3] of array[1..3] of integer;
c : integer;
i, j : byte;
begin
writeln('Заполните массив:');
for i := 1 to 3 do begin
writeln('Строка ', i);
for j := 1 to 3 do
readln(b[i][j]);
end;
c := 0;
for i:=1 to 3 do begin
for j:=1 to 3 do begin
write(b[i][j]:5, ' ');
if b[i][j] > 0 then inc(c, 1);
end;
writeln;
end;
writeln('Найдено ', c, ' положительных элементов');
end.
//прога на Pascal`е
<span>var
</span><span> a : longint;
</span><span>begin
</span><span>readln (a);
</span><span> if abs(a)>9 then
write (abs ( (((a mod 100) - (a mod 10)) div 10) + (a mod 10)))
</span><span> else write ('В этом числе меньше двух знаков!');
</span><span>end.</span>
Надо рассмотреть координату точки на предмет больше или меньше нуля x,y
Если x>0 и y > 0 то 1 четверть
Если x<0 и y > 0 то 2 четверть
Если x<0 и y <0 то 3 четверть
Если x>0 и y < 0 то 4 четверть
Ответ: 6736,8 мин
Объяснение:
53×416×44=970112 - символов всего
970112/144= 6736,8 м - понадобиться Андрею.