Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 4 и оканчивающихся на 0. программа получает на вход целые числа, количество введеных чисел неизвестно, последовательность чисел заканчивается числом 0 (0-признак окончания ввода, не является членом последовательности количество чисел не превышает 1000. введеные числа по модулю не превышают 30000. программа должна вывести число: количество чисел, кратных 4 и оканчивающихся на 0.

Var
  a,c:integer;
Begin
Writeln('Вводите числа (через Enter)');
  repeat
    Readln(a);
    if (a<>0) and ((a mod 10) = 0) and ((a mod 4) = 0) then inc(c);
  until a=0;
  Write('Количество чисел кратных 4 и оканчивающихся на 0 равно ',c);
End.
    

В C++
#include <iostream>
int main()
{
    using namespace std;

    cout << "Enter N: ";
    int N;
    cin >> N;

    int * parr = new int[N];
    for (int i = 0; i < N; ++i)
    {
        cout << "Enter #" << i + 1 << " element: ";
        cin >> parr[i];
    }

    int kpos = 0, kneg = 0, kzer = 0;
    for (int i = 0; i < N; ++i)
    {
        if (parr[i] > 0)
            ++kpos;
        else if (parr[i] < 0)
            ++kneg;
        else
            ++kzer;
    }

    cout << "Number of positive: " << kpos
        << "\nNumber of negative: " << kneg
        << "\nNumber of zero: " << kzer << endl;

    return 0;
}

1) В строке 1 пишешь заголовки: A1="Градусы", B1="Радианы", C1="Синусы"
2) В ячейке A2 пишешь 1. Выделяешь ячейки A2 - A31.
3) В меню находишь Заполнить - Прогрессия.
В открывшемся окошке ставишь установки: По столбцам, Арифметическая,
Шаг 1. Нажимаешь Ок. Заполнил градусы от 1 до 30.
4) В ячейке B2 ставишь =, потом в окошке функций (левый верхний угол) 
находишь "Другие функции". В списке находишь РАДИАНЫ. Нажимаешь.
В открывшемся окне нужно задать Угол. Тыкаешь мышью в ячейку A2.
В поле Угол появляется надпись "A2". Нажимаешь Ок, и в B2 появляется значение угла в 1 градус в радианах.
5) Выделяешь ячейку B2, копируешь ее в буфер (Ctrl+C), потом выделяешь 
область B3 - B31 и делаешь Вставку (Ctrl+V).
Получил все углы в радианах.
6) Теперь синусы. Встаешь на С2, нажимаешь = и опять в списке функций
находишь функцию SIN. Если сразу нет, открываешь "Другие функции".
В поле число нужно задать аргумент. Тыкаешь мышью на B2. Потом Ок.
7) Точно также, как столбец B, копируешь из C2 в C3 - C31.
Получил столбец синусов.
8) Построение графика. Выделяешь всю таблицу.
Выбираешь меню Вставка - Диаграммы.
Или просто на панели кнопок нажимаешь кнопку Диаграмма.
Выбираешь тип диаграммы - График, самый простой, 1-ый вид.
Подписи осей. Ось x - A1 (Градусы) или B1 (Радианы). Ось y - C1 (Синусы)
Сами оси. Ось x - выделяешь A2-A31 или B2-B31 соответственно.
Ось y - выделяешь C2-C31.
Строишь диаграмму
9) Всё!