1) именительного падежа,единственного числа.
2)<span>следовательно, число не оканчивается на 0</span>
Var s1,s2:string; x:char; i,p:integer;
begin
writeln('Введите предложение:');
readln(s1);
write('x = ');
readln(x);
for i:=length(s1) downto 1 do
if s1[i] in [',',';',':','.','!','?']
then delete(s1,i,1);
s1:=s1+' ';
s2:='';
p:=pos(' ',s1);
while p>0 do
begin
if s1[p-1]=x then s2:=s2+copy(s1,1,p-1)+',';
delete(s1,1,p);
p:=pos(' ',s1);
end;
if s2='' then writeln('В предложении нет искомых слов')
else
begin
delete(s2,length(s2),1);
writeln(s2);
end;
end.
Пример:
Введите предложение:Дано предложение. Посчитать количество слов, заканчивающихся на заданную букву, и записать эти слова в другую строку через запятую.
x = ю
заданную,другую,запятую
Program 1;
Var s,i,n,a:integer;
begin
writeln('Введите число n');
readln(n);
S:=0;
for i:=2 to 2*n do
begin
a:=i*(i-1);
S:=S+a;
end;
writeln('S=',S:3);
readln;
<span>end.
Дайте лучший ответ)</span>
Нарисовать алгоритм?Или написать по пунктам?