Напишите программу, которая в последовательности натуральных чиселопределяет произведение чисел оканчивающихся на 5.Паскаль. Цикл for

var

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

 N: integer;

 i: integer;

 Product: integer;

begin

 product := 1;

 write('Введите количество элементов в массиве: ');

 readln(N);

 write('Введите элементы массива: ');

 for i:=1 to N do

 begin

   read(a[i]);

   if (a[i] mod 10 = 5) then

   begin

       product := product * a[i];

   end;

 end;

   

 write('Произведение элементов: ', product);

end.

Program p1;

Var a, i, n, k: integer;

Begin

Write('Введите количество чисел последовательности: ');  

readln(n);

k:=1;

For i:=1 to n do begin

readln (a);

if (a mod 10 =5) then k:=k*a;

end;

Writeln('Произведение чисел оканчивающихся на 5 - ',k);

End.

Попробуй:

var

  a, chet, nechet : integer;

   

begin

  write('введите число: ');

  readln(a);

  while a > 0 do begin

      if (a mod 10) mod 2 = 0then chet += 1 else nechet += 1;

      a := a div 10;

  end;

  writeln('четных: ', chet);

  writeln('не четных: ', nechet);

end.

программа считает 0 как четное число. Если нужно что бы 0 не учитывался при подсчете то необходимо строку:

if (a mod 10) mod 2 = 0then chet += 1 else nechet += 1;

заменить на:

if a mod 10 <> 0 then if (a mod 10) mod 2 = 0then chet += 1 else nechet += 1;

ехнология создания электронных таблиц в MS Excel Цель: изучить инструменты ввода, редактирования, форматирования и обработки числовых данных в электронной таблице. Изучив данную тему, студент должен: иметь представление о; • технологиях обработки числовых данных в электронных таблицах; знать: • инструменты ввода, редактирования, форматирования и обработки числовых данных в электронной таблице; • принципы работы Мастера диаграмм; уметь: • форматировать ячейки таблицы; • выполнять простейшие вычисления и использовать элементарные функции в расчетах; • использовать относительную и абсолютную адресацию; • выполнять построение и форматирование диаграмм; • установить защиту рабочей книги; владеть навыками: • обработки информации в электронных таблицах; • построения различного вида диаграмм (графиков, гистограмм и др.) с мастера диаграмм Excel.

Объяснение: