№3 <span>Линий-выносок, размерных линий, полок</span>
Наскальная живопись
Книга
Перфокарта
Магнитная лента
Дискета
Флеш-карта
Program n1;
var a: array[1..10] of integer;
i,k: integer;
begin
randomize;
writeln('исходный массив: ');
k:=0;
for i:=1 to 10 do
begin
a[i]:=random(15);
write(a[i],' ');
if a[i] mod 2<>0 then k:=k+1;
end;
writeln;
writeln('количество нечетных: ',k);
end.
1.принтер
5.монитор
2.наушники,10.акустические колонки -устройства вывода звуковой информации.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
if n.Between(2,10) then begin
var i:=1;
repeat
Write(n,'x',i,'=',n*i,' ');
i+=1
until i>10;
Writeln
end
else Writeln('Число должно быть от 2 до 10')
end.
<u>Пример</u>
n= 6
6x1=6 6x2=12 6x3=18 6x4=24 6x5=30 6x6=36 6x7=42 6x8=48 6x9=54 6x10=60