алг Автомобили
строк таб car[2000:2018]
цел i
нач
для i от 2000 до 2018 шаг 1 повторять
нц
вывод (i, "-")
ввод (car[I])
кц
кон
2) Оценка с предмета:
Имя для обозначения: grade
Нумерация: по дате получения
Тип: целый (строковый)
алг Оценки с предмета
цел таб grade[1:30]
цел i
нач
i:=1
пока i<=30, повторять
нц
вывод (i," число- ")
ввод (grade[i])
i:=i+1
кц
кон
s:string;
begin
read (s);
for i:=1 to length(s) do if s[i]=' ' then delete(s,i,1);
write (s);
end.
var a, b, c, i:integer;
s, k:string;
begin
read (s);
k:='kk';
for i:=1 to length(s) do if s[i]=' ' then insert(k,s,i+1);
write (s);
end.
var a, b, c, i:integer;
s:string;
begin
read (s);
for i:=1 to length(s) do if s[i]=',' then a:=i;
write (a);
end.
Благодарность не помешает.