Регистрация
timkazhimov
11.02.2022 03:31
Информатика
Есть ответ 👍

6*. Складіть проєкт, у якому виконавець малює рівносторонні трикутники, роз- міщені по діагоналі Сцени (полотна), якщо довжина сторони першого з них
дорівнює а кроків, а довжина сторін кожного наступного на 10 кроків більша
за довжину сторін попереднього, поки довжина сторони не стане більша за
60 кроків.​

181
400
Посмотреть ответы 1

Ответы на вопрос:

Hackerywka
Hackerywka
4,8(86 оценок)

var c: array[1..100] of integer; n,i,proizv: integer; begin write('введите кол-во элементов массива'); read(n); for i: =1 to n do c[i]: =random(50); proizv: =1; for i: =1 to n do if c[i]> 20 then if c[i]< 30 then proizv: =proizv*c[i]; for i: =1 to n do write(c[i],' '); write('произведение = ',proizv); end.

 

блок-схему нет возможности скинуть, извини

 

написал на языке паскаля

     

Популярно: Информатика