Program fofgogjoj;
Var
a: array [1..100] of integer;
i, n, p: integer;
Begin
p:=1;
n:=30;
for i:=5 to n do
begin
a[i]:=i;
if i mod 2=0 then
p:=p*a[i];
end;
Writeln ('Произведение элементов массива с четными числами равно: ',p);
End.<span>
</span>
Var a, b: integer;
begin
readln(a);
if (a = 1) then write('Здравствуйте, Уважаемая ');
if (a = 2) then write('Здравствуйте, Уважаемый ');
if ((b > 25) and (a = 1)) then writeln('мадама');
if ((b <= 25) and (a = 1)) then writeln('леди');
if ((b > 25) and (a = 2)) then writeln('сэр');
if ((b <= 25) and (a = 2)) then writeln('господин');
end.
Слова только поменяйте, что ли...:)
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var s:=ReadLnString('Введите натуральное число');
var k:=ReadChar('Введите символ для исключения');
s.Where(x->x in ['0'..'9']).Reverse.Where(x->x<>k).PrintLn('')
end.
<u><em>Тестовые решения</em></u>
<u>- сначала корректное число:</u>
Введите натуральное число 23610645311065462546320
Введите символ для исключения 6
023452450113540132
<u>- а теперь число, замусоренное разными символами:</u>
Введите натуральное число 1234 разорвем2356-783+342\1421453!!!
Введите символ для исключения 3
5412412487652421
Горький острый. теплый горячий.сухой влажный. я не я не знаю как то так