Program qfdw;
uses crt;
Type
vershina=Record
Tochka:string;
X,Y:real;
end;
ps=File of vershina;
Var f:ps;
z,a,b,c:vershina;
i:integer;
Begin
assign(f,'1.dat');
rewrite(f);
writeln('Введите вершины треугольника и их координаты: ');
for i:=1 to 3 do
begin
writeln(i,'-я вершина');
write('буква: ');read(z.tochka);
write('X=');read(z.x);
write('Y=');read(z.y);
write(f,z);
end;
Close(f);
assign(f,'1.dat');
reset(f);
read(f,a);
read(f,b);
read(f,c);
close(f);
writeln('Cтороны треугольника:');
writeln(a.tochka,b.tochka,' = ',sqrt((a.x-b.x)*(a.x-b.x)+(a.y-b.y)*(a.y-b.y)):5:2);
writeln(c.tochka,b.tochka,' = ',sqrt((c.x-b.x)*(c.x-b.x)+(c.y-b.y)*(c.y-b.y)):5:2);
writeln(a.tochka,c.tochka,' = ',sqrt((a.x-c.x)*(a.x-c.x)+(a.y-c.y)*(a.y-c.y)):5:2);
end.
Вы ввели число: 17318 в восьмеричной системе счисления и хотите перевести его в двоичную.
Для этого переведем его сначала в десятичную вот так :
17318 = 1∙83+7∙82+3∙81+1∙80 = 512+448+24+1 = 98510
Получилось: 98510
Переведем 98510 в двоичную систему вот так:
Целая часть числа находится делением на основание новой
9852-98449221-49224620-24612320-1226121-603021-301520-14721-6321-211
Получилось:98510 = 11110110012
Результат перевода:
17318 = 11110110012
Program vs4;Var n,b,a,c:integer;Begin Writeln('Введите трехзначное число'); Readln(n); a:=n div 100; b:=(n div 10) mod 10; c:=(n mod 100) mod 10; n:=a+b+c; Writeln('Сумма цифр данного числа=',n);End.
18 бизанимаэт это слово (вроде бы)
Если границы индекса массива n1 и n2 соответственно, то количество элементов = n2-n1+1
1. [4..18]: 18-4+1=15
2. [3..11]: 11-3+1=9
3. [1..15]: 15-1+1=15
4. [10..28]: 28-10+1=19