Для какого имени истинно высказывание (вторая буква гласная→первая буква гласная)˄последняя буква согласная? максим, степан, мария, ирина

2г - вторая гласная 1г- первая гласная пс - последняя согласная 1 - истина, 0 - ложь (2г →1г)*пс=1(не2г+1г)*пс=1 1)  пс=1     подходит максим и степан 2)  не2г+1г=1     1г=1, но таких имен из первого действия нету, значит     не2г=1     2г=0, подходит степан ответ: степан

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.

грубо и сердито:

 

 

var c: longint;

begin

  read(c);

  c: =c mod 10;

  c: =sqr(c);

  writeln(c);

end.