Составить программу вычисления стоимости рекламного текста, если 1 слово стоит 50 тенге

Question

Информатика

Тасюта

26 мая, 23:48

Составить программу вычисления стоимости рекламного текста, если 1 слово стоит 50 тенге

+5

Ответы (1)

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

Муля · Answer 1

Решил)

Easy

var

s:string;

c:integer;

begin

readln (s) ;

while pos (' ', s) 0 do

begin

c:=c+1;

delete (s, pos (' ', s),1) ;

end;

writeln ((c+1) * 50,' Tenge') ;

end.