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

Question

Информатика

Грапа

31 января, 18:57

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

+4

Ответы (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.

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

декабрь