Question

ребят!!срочно помогите!!
1.Массив из 20 элементов
Найти сумму элементов,которые делятся на 3 и на 6.
2.С помощью цикла while найти кол-во нечетных элементов от А до В(А и В вводит пользователь)это все в паскале

Answer 1

Ответ:

pascal

Объяснение:

1)

var i, s: integer;

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

begin

 for i := 1 to 20 do begin

   write('Введите a[', i,'] = '); readln(a[i]);

   if (a[i] mod 3 = 0) and (a[i] mod 6 = 0) then s := s + a[i];

 end;

 writeln('Сумма элементов,которые делятся на 3 и на 6 равна ', s);

end.

2)

var a, b, i: integer;

begin

 write('Введите начало интервала A = '); readln(a);

 write('Введите конец интервала B = '); readln(b);

 while a <= b do

 begin

   if a mod 2 = 0 then i := i + 1;

   a:= a + 1;

 end;

 writeln('Сумма нечетных элементов равна ', i);

end.