X : = 4 + 8 * 3 ; - то есть x=4+8*3 = 4+24 = 28
y : = ( x mod 10 ) + 15; // mod 10 - остаток от деления на 10. y = (28 mod 10)+15 = 8+15 = 23
<span>x : = ( y div 10 ) + 3 // div - целочисленное деление, (y div 10) + 3 = (28 div 10) + 3 = 2+3 = 5
Сумма переменных равна 23+5 = 28</span>
Program Matrix;
Uses Crt;
type matrix=array[1..3,1..3] of real;
var m:matrix;
procedure PrintMatrix(mas:matrix);
var j,k:integer;
begin
for k:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(mas[k,j]:7:2);
end;
writeln;
end;
end;
procedure Auto;
var i,j:integer;
begin
randomize;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
m[i,j]:=25+random(21)+i;
end;
end;
end;
begin
clrscr;
Auto;
PrintMatrix(m);
readkey;
end;
2мин=120с, чтобы узнать скорость - надо кол-во символов поделить на время, получается 360/120=2бит/с
Если ты сдаешь эту задачу на сайт acmu.ru или acmp.ru:
var a, b: longint;
begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
read(a, b);
write(b - 1, ' ', a - 1);
end.
А, если ты её просто учителю показываешь:
var a, b: longint;
begin
write('Сколько банок прострелил Гарри? ');
readln(a);
write('Сколько банок прострелил Ларри? ');
readln(b);
writeln('Гарри не прострелил ', b - 1, ' банок');
writeln('Ларри не прострелил ', a - 1, ' банок');
end.
Если N=8, то это=1-2-3-4-5+6+7+8
дальше пока не решила