Всего дискет 8. какой бы не была дискета с инфой, информация об этом весит одинаково
8 = 2^3 т.е. 3бита
Начало
Сними трубку
набери номер
дождись гудка
гудки длинные?
передай сообщение
дождись ответа
положи трубку
конец
в ромбе всегда стоит вопрос.
Если цепочки две, то выводится ближайшая. Пойдет?
//t1.txt должен быть в папке с программой
//Pascal
var
f: text;
numValue, Counts, n, c, t, i: integer;
begin
assign(f, 't1.txt');
reset(f);
Counts := 0;
c := 0;
while not eof(f) do
begin
readln(f, n);
if (c = 0) or (n = t) then
c := c + 1
else
c := 1;
t := n;
if c > Counts then
begin
Counts := c;
numValue := n
end
end;
close(f);
assign(f, 't2.txt');
rewrite(f);
writeln('Длина цепочки: ', Counts);
for i := 1 to Counts do
writeln(f, numValue);
close(f)
end.
Program primer;
var y, x: real;
begin
x:=1;
repeat
y:=x*x-16*x+32;
write(y)
x:=x+0.25;
until x < 10;
readln;
end.
Мова - Python
a = int(input("a="))
b = int(input("b="))
c = int(input("c="))
if (a + b) > c and (b + c) > a and (a + c) > b:
if a == c and a == b and b == c:
print("Трикутник рівносторонній")
elif a == c or a == b or b == c:
print("Трикутник рівнобедрений")
else:
print("Трикутник-довільний")
else:
print("Нерівність трикутника не виконується")