2.5. Моделируется музыка посредством записи составляющих её нот при помощи принятой в музыке системы нотных знаков.
2.6. Моделируется равномерное движение тела при помощи изображения графической зависимости пути, пройденного телом, от времени. Необходимо знать, что скорость v=S/t, и и что прямая линия имеет уравнение f(t)=kt+b, т.е. в данном случае скорость постоянная.
2.7. Моделируется рельеф некоторой части поверхности. Если там есть какие-то надписи (на снимке не видно), надо знать основы топографии, чтобы правильно их понять.
var a:array[1..10] of integer;
i:byte;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
writeln(a[i]*2);
end.
Var
n:integer;
function kol(n:integer):integer;
var k:integer;
begin
k:=0;
while n>0 do
begin
k:=k+1;
n:=n div 10;
end;
kol:=k;
end;
begin
write('n = '); readln(n);
writeln('k = ',kol(n));
end.
Пример:
n = 123456
k = 6
1)var a,b,i:integer;
begin
readln(a,b);
for i:= 1 to 100 do
if (i mod a<>0) and (i mod b<>0) then write(i,' ')
<span> end.
2)</span>var a,b,i,k:integer;
begin
readln(a,b);
k:=0;
for i:= a to b do
if (i mod 7=0) xor (i mod 9=0) then k:=k+1;
write(k)<span>
end.
3)</span>var pol,i,otr,a:integer;
begin
otr:=0;
pol:=0;
for i:= 1 to 10 do
begin
readln(a);
if a>0 then pol:=pol+1;
if a<0 then otr:=otr+1
end;
if pol>otr then write('Положительных больше');
if otr>pol then write('Отрицательных больше')<span>
end.
4) </span>var i,a,b:integer;
begin
readln(a,b);
for i:= a to b do
if (i mod 3 =0) or (i mod 7=0) then write(i,' ',i,' ') else write(i,' ')
<span>end.</span>
На 1 монитор на 2 сканер.
