program raf105;
var
A: real;
x: integer;
begin
write('Введите число в битах: ');
readln(A);
writeln('1. Байт');
writeln('2. Килобайт');
writeln('3. Магабайт');
writeln('4. Гигабайт');
write('Введите номер единицы, в которую нужно перевести: ');
readln(x);
if x=1 then writeln(A/8,' байт')
else if x=2 then writeln(A/8000,' кб.')
else if x=3 then writeln(A/8000000,' мб.')
else if x=4 then writeln(A/8000000000,' гб.')
else writeln('Ошибка');
end.
PascalABC 3.4.2
выразите количество троек попарно знакомых людей через количество пар знакомых
обозначим через р количество пар знакомых людей (то есть число рёбер в соответствующем графе), а через т – количество треугольников в этом графе. по условию каждое из рёбер входит ровно в 5 треугольников. с другой стороны, в каждый из т треугольников содержит ровно 3 ребра. следовательно,5р = 3т. поскольку 3 и 5 – взаимно простые числа, р делится на 3.