const nx=20;
var r:array[1..nx] of integer;
var j:real; n,i,sum,k:integer;
begin
randomize;
write('Введите n');
readln(n);
for i:= 1 to n do begin
r[i]:= random(15);
if ((i mod 4 = 0) and (r[i] < 5 )) then begin
sum:= r[i]+sum;
k:=k+1;
end;
write(r[i]:4);
end;
writeln;
writeln('sum =',sum:3,' k =',k);
end.
1)90 * 60=5400
5400*8=43200(байтов)
2)17*26=442
442*120=53040(точек)
3)53040 : 43200 как 10608:8640
Uses Crt;
var
n:integer;
begin
repeat
textcolor(15);
Write('n='); Read(n);
if n=0 then begin
textcolor(LightGreen);
Writeln('Работа завершена');
textcolor(15);
end
else
if (n>9) and (n<100) then begin
n:=n-10;
Writeln('Результат: ',n)
end
else
if (n>99) and (n<1000) then begin
n:=n-100;
Writeln('Результат: ',n)
end
else begin
textcolor(LightRed);
Writeln('Недопустимое значение');
end;
until n=0;
ReadKey { для PascalABC.NET можно удалить эту строку }
end.