Program Summa;
Uses Crt;
var s,n,c:integer;
begin
clrscr;
write('Введите числа коннц ввода 0: ');
s:=0;c:=0;
repeat
readln(n);
c:=c+1;
if (n mod 2)=0 then
if ((n>=5)and (n<=25)) then s:=s+n;
until (n=0) or (c=1000) ;
write('Сумма ',c,' чётных чисел в диапазоне от 5 до 25:',s);
readkey;
end.
:D
Просто идёшь по алфавиту и всё.
ответ: l, e
Держи, два в одном.
1) Четыре слова задаются в массиве, константы.
2) В переменную вводишь полное ФИО, программа разбирает в массив и после выводит.
Допустим Pascal. На нем обычно ведется обучение.
IF x>7 then y:=x-3 else
IF x<-5 then y:=4*sqr(x) else
y:=5;