Попробуй:
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.
Объяснение:
ответ: Алгоритм, вроде как, нашёл (N-1/b).
#include <iostream>
using namespace std;
int main()
{
int n, b=3, x;
start:
setlocale (LC_ALL, "Russian");
cout << "Введите число собранных кусочков: ";
cin >> n;
x=n-1;
if (x%b==0)
cout << "Yes" << endl;
else
cout << "No" << endl;
goto start;
system ("pause");
}