Program pr;
var norma,total:real;day:integer;
begin
norma:=10;
day:=0;
repeat
day:=day+1;
writeln('День: ',day);
writeln('Норма: ',norma:0:1,' км');
writeln();
total:=total+norma;
norma:=norma*1.1;
until day=7;
writeln();
writeln('Всего: ',total:0:1);
end.
Вопрос 1 точно знаю: <span>загрузочные вирусы.
</span>
Const nx = 20;mx = 30;
var A:array[1..nx,1..mx]of integer; i,j,n,m,min,z:integer; sum:array[1..nx]of integer;
begin
write('Введите число строк и столбцов');Readln(n,m);min:=1000;
for i:=1 to n do begin
sum[i]:=0;
for j:=1 to n do begin
A[i,j]:= random(100)-50;
write(A[i,j]:5);sum[i]:= sum[i] + A[i,j];end;writeln;
if min > abs(sum[i]) then begin min := abs(sum[i]);z:=i;end;
end;writeln;for i:=1 to n do
writeln('i= ',i,' sum = ', sum[i]:4);writeln;
writeln('Ближе всего к нулю i= ',z,' sum = ', sum[z]:4);<span>end.</span>
Начальные координаты обозначешь за х и у
составляешь систему:
х+7(-1-2+4)=1
у+7(2+2-5)=1
получается, что
х=-6
у=8
это и есть начальные координаты