Всем привет, можете Циклы с параметром. Дано натуральное число n. Вычислить произведение (2n-1)*(3n-1)*(4n-1)*...*(10n-1). Составить блок-схему и программу.
-
И циклы с предусловием то же самое. Вычислить произведение (2n-1)*(3n-1)*(4n-1)*...*(10n-1). Составить блок-схему и программу.

Ответы

1.var a,b,c: real; beginread(a,b,c); wrteln((a+b+c)/ 3); end.2. a=[tex]2 + \frac{b}{c} [/tex]b=[tex] \frac{4}{2a - |b| + 5} [/tex]c=[tex] \sqrt{ {a}^{2} + b \times b } [/tex]

var a: array [1..20] of integer; i,s1,s2: integer;

begin

for i: =1 to 20 do begin

                              writeln('введите элемент ',i); read(a[i]);

                                if i mod 2=0 then s1: =s1+a[i] else

                                                            s2: =s2+a[i];

                          end;

writeln('среднее ариф. четных ',s1/20,'; а нечетных ',s2/20);

readln;

end.

 

ну как всегда: вопросы - в личку)

в египетском письме было более 750 иероглифов, не было гласных. иероглифы обозначали целые слоги и звуки.

Найдено 3 ответ(ов)
Показать ответы


Знаешь ответ?

Похожие вопросы:

program gg; var i,s: integer; begin   for i: =10 to 50 do   if i mod 2=0 then s: =s+i;   writeln('сумма всех четных чисел от 10 до 50 равна ',s) end....Подробнее
ответов: 2
по формуле или   (n - мощность алфавита, i - вес одного символа) вес одного символа бит   (округляем в большую сторону так как кусками тут быть не может) вес одного...Подробнее
ответов: 3
Популярные вопросы