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

Viktoriya20030401 Viktoriya20030401    3   17.06.2019 10:00    0

Ответы
zligna zligna  02.10.2020 03:30
Решил)
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика