Регистрация
алтуша9796
25.11.2022 14:03
Информатика
Есть ответ 👍

Составить программу вычисления суммы чётных чисел и произведение нечётных чисел от 1 до 10. (через паскаль)

122
269
Посмотреть ответы 3

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

nastyshanastia1
nastyshanastia1
4,5(49 оценок)

не особо. его произведения конечно игрались в салонах, но большую популярность он обрёл после своей смерти

apuha2003p07yqc
apuha2003p07yqc
4,7(18 оценок)

паскаль.

 

 

program jjj;

var a: array [1..10] of integer; i,summa,proizv: integer;

begin

for i: =1 to 10 do begin

    writeln('напишите элемент массива номер ',i); read(a[i]);

                        end;

for i: =1 to 10 do begin

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

                                if (a[i]< =10) and (a[i]> =1) then   proizv: =proizv*a[i];

                          end;

writeln(summa,'   ',proizv); readln;

end.

 

жирным - это то, что я добавил)

moiytrewq20005
moiytrewq20005
4,8(89 оценок)
Var  a: real; begin  write('введите размер в байтах ');   readln(a);   writeln(a*8,' бит');   writeln(a,' байт');   a: =(a/1024);   writeln(a,' кбайт');   a: =(a/1024);   writeln(a,' мбайт');   a: =(a/1024);   writeln(a,' гбайт');   a: =(a/1024);   writeln(a,' тбайт'); end.  

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