Напишите программы для алгоритмов, приведённых ниже в виде блок-схем

первую фигуру мы можем раскрасить в 6 цветов, вторую - в 5, третью- в 4, и т.д. а первую - в 3 цвета

6*5*4*3=360

ответ 360 способов

1)

var

i,k: integer;

a: array [1..14] of integer;

begin

k: =0;

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

if a[i] mod 2=0 then k: =i;

end;

if k> 0 then

begin

for i: =k to 13 do a[i]: =a[i]+1;

a[14]: =0;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

2)

var

i,k: integer;

a: array [1..14] of integer;

begin

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

end;

for i: =1 to 7 do

begin

k: =a[i];

a[i]: =a[i+7];

a[i+7]: =k;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

 

 

 

 

 

Это выражение означает следующее: машина без человека - ничто. она не будет приносить абсолютно никакой пользы, если за ней не сидит тот или иной человек (работник за каким-нибудь станком, или дизайнер с программой по проектированию, к примеру). сам станок или одна только программа и компьютер не способны что-либо произвести: всю работу делает человек; машина является лишь средством облегчения и ускорения работ человека.

var

i,s: integer;

begin

s: =0;

for i: =20 to 60 do

if i mod 5 =0 then s: =s+i;

writeln(s);

end.