Дана предложение напечатайте все символы до запятой

Question

Информатика

Доброслава

14 февраля, 06:07

Дана предложение напечатайте все символы до запятой

+5

Ответы (1)

Знаете ответ?

Лека · Answer 1

Var s: string;

n: integer;

begin

write ('предложение: ') ; readln (s) ;

n:=pos (',', s) ;

if n>0 then writeln (copy (s, 1, n-1))

else writeln (s) ;

end.

предложение: декабрь, январь, февраль - зима.

декабрь