Question

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

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.

Answer 2

спасибо

Answer 3

можно я выставлю 2 задачу помогите решить!

Answer 4

жду

Answer 5

http://znanija.com/task/9038882

Answer 6

Составить программу вычисления длины окружности и площади круга по заданному радиусу.