Выделяем нужный диапазон цифр, жмем вставка/диаграмма/....
Далее заполняем меню и жмем готово
<span />
1 - в) caa
2 - в) в столбик
3 - <span>в) char
4 - </span>в) пояснительный текст не нужен
5 - в) символ заключается в апострофы
1)
Var s1: string;
i,a:integer;
Begin
Writeln ('введите текст');
Readln (s1);
for i:=1 to length(s1) do
if (s1[i]='а')or(s1[i]='a') then a:=a+1;
writeln('количество букв а в тексте: ',a);
End.
2)
Var s1,s2: string;
Begin
Writeln ('введите первую строку');
Readln (s1);
Writeln ('введите вторую строку');
Readln (s2);
if length(s1)=length(s2) then writeln('длины строк совпадают')
else writeln('длины строк не совпадают')
End.
Ось, відкрий та подивись картинку(сам робив)))))
1 5- ти л ведро
2 9-ти литровое
3 действие
------------------------------------------------------------------------------------------
№ | 1 | 2 | 3
------------------------------------------------------------------------------------------
1 0 0 начало
2 5 0 налить 5-ти литровое из родника
3 0 5 перелить из 5-ти в 9-ти л
4 5 5 налить в 5-ти из родника
5 1 9 из 5-ти долить 9-ти л
6 1 0 вылить воду из 9-ти л
7 0 1 из 5-ти л перелить в 9-ти
8 5 1 наполнить 5-ти л из родника
9 0 6 из 5-ти л перелить в 9-ти
10 5 6 наполнить 5-ти л из родника
11 2 9 из 5-тил долить 9-ти л
12 2 0 вылить из 9-ти л
13 0 2 из 5-ти л перелить в 9-ти л
14 5 2 налить из родника в 5-ти л
15 0 7 вылить из 5-ти л в 9-ти л
16 5 7 набрать из родника в 5-ти л
17 3 9 долить 9-ти л из 5-тил и
в 5-ти л останутся заветные 3 литра
18 3 0 выливаем из 9-ти л
19 КОНЕЦ