Program maxx;
var ocenka,sdal,nesdal,k,i:integer;
begin
writeln('введите кол-во оценок');
readln(k);
sdal:=0;
nesdal:=0;
for i:=1 to k do
begin
readln(ocenka);
if ocenka>2
then sdal:=sdal+1;
else nesdal:=nesdal+1;
end;
writeln(sdal);
writeln(nesdal);
<span>end.</span>
Beginvar b:boolean; s:real;a:=0;writeln('slovo');readln(z);while not (eof(z)) do beginif z=d then a:=a+1;writeln(a);end;end.
<span>Шрифт
Размер шрифта
Полужирный
Курсив
Подчеркнутый
___
Выровнять:
</span>По левому краю
<span>По центру
По правому краю
__
</span>Нумерация
Ответ:
не до конца понял ответы, думаю из объяснения поймете
Объяснение:
Кликаем по кнопке Пуск.
Откроется меню кнопки Пуск, в котором щелкаем по опции «Все программы»
Среди перечня программ находим «Стандартные».
Среди «Стандартных» находим «Служебные».
Кликаем по опции «Служебные»
Далее кликом по опции «Таблица символов» запускаем ее.
Выделяем нужный символ и нажимаем ctrl-C (Copy) двигаемся куда надо вставить и жмем ctrl-V (Paste)