//PascalABC.Net 3.2
begin
var count:=0;
var a:=ReadArrReal('Вводите', readinteger('Кол-вo элементов: '));
for var i:=1 to length(a)-1 do if a[i]=a[0] then inc(count);
write (count)
end.
1 обычный
2 полужирный
3 курсивный
4 подчёркнутый
5 полужирный и курсивный
6 полужирный и подчёркнутый
7 подчёркнутый и курсивный
8 полужирный и подчёркнутый и курсивный
Program kolco;
var t,d:integer;
S:real;
begin
writeln ('Введите толщину кольца');
readln (t);
writeln ('Введите диаметр внутреннего круга кольца');
readln (d);
S:=pi*sqr(t+d/2)-pi*sqr(d/2);
write ('Площадь кольца равна ',S,' сантиметров квадратных');
end.
I=1, X=10, C=100, M=1000 и их половины V=5, L=50, D=500
<span>MCXLVII=1147</span>
Если тебе нужно узнать значение переменной s, то выполним следующее:
От-4до 1 делай:
s присвоить значение её же + i(позиция, в которой сейчас находится цикл);
Таким образом:
s + i : 0 + -4= -4
s + i : -4 + -3= -7
s + i : -7 + -2= -9
s + i : -9 + -1= -10
s + i : -10 + 0= -10
<span>s + i: -10 + 1= -9
Итог: s= - 9.</span>