Напиши свое ФИО, подсчитай количество букв + 2 пробела = сумма * 16 бит (или на 2 байта) результат готов!
a:array[1..10,1..15] of integer;
i,j,k,x:integer;
begin
read(x);
k:=0;
for j:=1 to 15 do
for i:=1 to 10 do
a[i,j]:=random(101);
for j:=1 to 15 do
for i:=1 to 10 do
if a[i,j]=x then k:=k+1;
write(k);
end.
Const a=1.2; b=2; h=0.1;
var x,y:real; n,i:integer;
begin
x:=a-h;
n:=round((b-a)/h)+1;
writeln(' № x y');
for i:=1 to n do
begin
x:=x+h;
y:=sqrt((x-1)/sin(1/x));
writeln(i:2,' ',x:3:1,' ',y:8:4);
end;
end.
Результат:
№ x y
1 1.2 0.5198
2 1.3 0.6567
3 1.4 0.7814
4 1.5 0.8992
5 1.6 1.0127
6 1.7 1.1232
7 1.8 1.2316
8 1.9 1.3385
9 2.0 1.4442
Ответ: 2
Мы ставим курсор в начало латинского слова, затем удаляем его.
Что бы удалить символ после курсора нужно нажать delete.