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

Question

Информатика

Павлина

22 мая, 23:54

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

+2

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