#include <iostream> //подключаем библиотеку iostream
using namespace std;
int main()
{
int a, s; //объявляем целочисленные переменные a и s
cin >> a; //вводим a
s = 0; //обнуляем сумму
while (a != 0) //цикл while, условие - a не равно нулю
{
s = s + a % 10; //остаток от деления числа на 10 - его последняя цифра, прибавляем ее к сумме
a = a / 10; // убираем последнюю цифру
}
if (s % 2 == 0) //условие - проверка на четность
{
cout << "summa chetnaya"; //выводим когда сумма четная
}
else
{
cout << "summa nechetnaya"; //выводим когда сумма нечетная
}
return 0;
}
program z_string;
uses crt;
const Letters = ['a'..'z','A'..'Z','а'..'я','А'..'Я'];
var StringS, Symbol :string;
CounterI, Number:byte;
begin
clrscr;
writeln('Введите строку текста');
readln(StringS);
Number := 0;
Symbol := '';
for CounterI := 1 to length(StringS) do
begin
if (StringS[CounterI] in Letters) and (Symbol = '') then
Symbol := StringS[CounterI];
if (not(StringS[CounterI] in Letters)) and (CounterI <> 1) then
begin
if StringS[Counteri - 1] = Symbol then
inc(Number);
Symbol := '';
end;
if (CounterI = length(StringS)) and (StringS[CounterI] = Symbol) then
inc(Number);
end;
writeln;
writeln('Количество слов начинающихся и заканчивающихся одной и той же буквой ', Number);
readln;
end.
ахах тоже составляли такую,прикольная;)
