1) var n: integer;
2) <span>_а
1) A:=2;
2) readln (x);
read (x);
3) ,
4) write (x);
writeln (x);
5) +,-,*,/,</span>
Не совсем вехал в вопрос но попробую ответить
1. визуальный способ (наблюдение за обьектом, его внешнии характеристики... )
2. "контактный" потрогать пальцом (опять таки даст возможность понять из чего состоит твердый/мягкий, холодный/теплый поверхность шероховатая/гладкая и т. д. обьект)
3. понюхать (ну ты понял)
4. механические испытания ( ну допустим обьект железо проведя испытания расняжение, сжатие и т. д. можно узнать твердость сигма текучести т. д. )
5. химические анализ (с чем объект контактирует с какой средой и т. д. )
I = 2 байта, K = 56 символов.
I = i*K = 2 * 56 = 112 байт
Вот на Pascal (Console Aplication) :
var
a:Integer;
begin
Writeln('Vvedite nominal valuti');
Readln(a);
case (a mod 10) of
1:
if (a=11) then
Writeln('Y Vas est ',a,' rublei')
else
begin
Writeln('Y Vas est ',a,' rubl');
end;
2,3,4:
if (a=12) or (a=13) or (a=14) then
Writeln('Y Vas est ',a,' rublei')
else
begin
Writeln('Y Vas est ',a,' rublya');
end;
0,5,6,7,8,9:
if (a=15) or (a=16) or (1=17) or (a=18) or (a=19) then
Writeln('Y Vas est ',a,' rublei')
else
begin
Writeln('Y Vas est ',a,' rublei');
end;
end;
Readln;
<span>end.</span>
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var n:=ReadInteger('n=');
var m:=18;
var a:=MatrixRandom(m,n,-999,999);
var imax:=0;
var jmax:=0;
for var i:=0 to m-1 do begin
for var j:=0 to n-1 do begin
Write(a[i,j]:5);
if abs(a[i,j])>abs(a[imax,jmax]) then begin
imax:=i; jmax:=j
end
end;
Writeln
end;
Writeln('Максимум по модулю А[',imax+1,',',jmax+1,
']=',a[imax,jmax])
end.
<u><em>Тестовое решение:</em></u>
n= 10
-275 257 -860 744 -263 843 8 667 425 -547
-392 635 636 -441 -64 973 201 -864 -126 -868
-764 43 -884 -667 -113 807 354 966 -155 -527
532 -790 -911 0 -303 -471 453 431 -741 -582
-121 548 -946 610 724 -426 963 -589 -591 845
-846 629 728 634 -581 681 141 807 -142 -70
-510 42 -177 -48 -80 -601 547 -364 862 -593
-480 770 876 -544 253 -312 -11 -494 -391 -687
843 -56 558 0 -681 903 -519 -545 -418 15
387 646 -427 329 928 837 -274 101 -310 325
27 327 -452 -998 325 -616 752 273 -619 731
-307 -364 199 -454 86 546 483 823 -367 17
917 92 -945 -152 19 -126 198 -453 -473 416
961 888 815 283 286 -483 -604 557 674 935
-849 207 -926 -149 -677 -248 -552 -972 -756 -617
-646 -97 -532 673 407 934 272 700 -18 -548
186 206 -253 -35 769 -196 -179 915 259 -431
151 926 -851 -302 -134 -289 19 204 -474 -732
Максимум по модулю А[11,4]=-998