Что будет выведено на экран в результате
выполнения программы:
var ss:string; c:char;

begin

ss:= 'studentka';

for c:='s' to 'u' do

delete(ss,pos(c,ss),2);

write(ss); readln;

end.

pait    3   07.05.2020 19:29    18