Найти все трехзначные числа у которых сумма цифр равна а , а само число делится на в. паскаль. 40 .

program test;

var i,a,b:integer;

BEGIN

writeln('Enter a:');

readln(a);

writeln('Enter b:');

readln(b);

for i:=100 to 999 do

   begin

   if i div 10) mod 10)+(i div 100)+(i mod 10) )= a) and (i mod b=0)  then writeln(i);

   end;

END.

Вам нужно:

1) перевести строку в массив символов

2) узнать длину полученного массива

3) создать ещё один пустой символьный массив

4) создать цикл, в котором будут записываться элементы первого массива во второй, пока не встретится запятая. если же встретилась запятая, то заканчиваем выполнение цикла

5) узнать размер нового массива, который состоит из букв первого слова

6) вывести последний элемент нового массива, что и будет последней буквой первого слова

алгоритм, в общем-то, такой. Вам нужно лишь перевести это в код на нужном языке программирования

#include <iostream>

#include <string>

 

bool check_func(char ch)

{

   if(ch == ' ' || ch == ',')

       return true;

   return false;

}

 

int main()

{

   std::string s;

   int index = 0, counter = 0;

   std::cout << "Enter string: ";

   getline(std::cin, s);

   

   while(s[index])

   {

       if(!check_func(s[index]))

       {

           while(!check_func(s[index]))

           {

               index++;

           }

           counter++;

       }

       index++;

   }

   

   std::cout << counter << "\n";

   

   system("pause");

   return 0;    

}