Найдите общее окончание для этих слов б, гр, д, ен, к, л, м, п, пл, р, ск

Бот,грот,дот,енот,кот,лот,мот,пот,плот,рот,скот

  бром, гром, дом, ком, ром, сом, том, хром.   только такие придумала

Var     s,c: string;     i: integer; begin write('введите фамилию, имя и отчество, разделяя их одним пробелом: '); readln(s); s: =s+' '; i: =1; while s[i] < > ' ' do     begin     c: =c+s[i];     i: =i+1     end; c: =c+' '+s[i+1]+'.'; i: =i+1; while s[i] < > ' ' do     i: =i+1; while s[i] < > ' ' do     begin     c: =c+s[i];     i: =i+1     end; c: =c+s[i+1]+'.'; writeln(c) end. пример работы программы: введите фамилию, имя и отчество, разделяя их одним пробелом: толстой лев николаевич толстой л.н.

Pascal

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

Program coio;

 

 var a:integer;

 

begin  

 

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

 

 readln (a);  {исходное число}

 

 if (a>=10) and (a<=99)then write ('число двузначное')

 

                        else write('число не двузначное');

 

{если (a>=10)и(a<=99), то вывести сообщение  

 

'число двузначное', иначе - 'число не двузначное'}

 

end.

Объяснение:

C

#include <stdio.h>

 

main()

{

int a;

 

// ввод исходных данных  

printf(" \n‚Введите целое число a=");

scanf("%f", &a);

// вычисляемая часть  

if????????как тут написать?????????