1.Програма должна уметь вычислить заработок продавца
<span>Исходные данные:
</span>А
Смысловое значение:
Сума которою получает продавец с продажи 50 газет.
Тип:
Целые.
<span>Исходные данные:
</span>В
<span>Смысловое значение:
</span>Количество проданных газет несчитая первые 50.
Тип:
Целые.
Результат
S
<span>Смысловое значение:
Заработок продавца </span>
Тип:
Целые
2.S=50*A+B*1,2*A
3.Дивись малюнок
4.
<span>var a,b,s,i:real; </span>
<span>begin </span>
<span>Writeln('A= '); </span>
<span>readln(a); </span>
Writeln('B=');
readln(b);
<span>s:=50*a+b*1.2*a; </span>
<span>writeln('Заработок продавца: ',s); </span>
<span>end.
5.Запускай программу с разными исходными даннымы и проверяй результати её работы [ это уже сам :) ]</span>
Если что-то не понятно, пиши!
О - одиннадцать
ч - четырехзначное
с - существительное
Function checkstring( s:string ): integer;
var i, k, len: integer;
begin len := length(s);
k := 0;
for i := 1 to len do
begin
if ( s[i] = 'п' ) then
if s[ i + 1 ] = 'о' then
if s[ i + 2 ] = 'л' then inc(k);
end;
checkstring := k;
end;
var str: string;
rez: integer;
begin
write('Введите слово: ');
readln(str);
rez := checkstring(str);
if rez > 0 then writeln('Буквосочетание "пол" встречается в слове в количестве: ', rez)
else writeln('Буквосочетание "пол" в слове не встречается');
<span>end.</span>
Слово осталось окончание ось,корень ост,суффикс а,л
