Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
а)сумм(a5: b7)
б)срзнач(c4: c7)
s : = 1 ;
for i : = 1 to n do
if a[i] mod 3 = 0 then
s : = s * a[i];
writeln(s);
qbasic не знаю, знаю только вижуал бэйсик
for i = 1 to 10
a(i) = i
next i
for i = 1 to 5
b = a(10+1-i)
a(10+1-i) = a(i)
a(i) = b
s = 0;
for i = a to b
if (i mod 2 =1) and (i mod 3 = 0) then
s = s + 1
end if
2^3 = 8 цветов (скорее всего оттенки серого)
Популярные вопросы