Объяснение:
program zadacha;
var d, o: text;
i, j, k, m, s: integer;
begin
assign(d, 'c:\data.txt');
reset(d);
assign(o, 'c:\output.txt');
rewrite(o);
i := 1;
j := 1;
readln(d, m);
s := m;
while not(eof(d)) do
begin
readln(d, k);
if k = m
then i := i + 1
else
begin
if i > j then
begin
s := m;
j := i
end;
m := k
end;
end;
writeln(o, 'Число: ', s, ', длина цепочки: ', i);
close(d);
close(o)
end.
программа написана на Python
# -*- coding: utf-8 -*-
def rectangle():
a=float(input("Введите сторону a:" ))
b=float(input("Введите сторону b:" ))
c=float(input("Введите сторону c:" ))
print("P= ")
print(a+b+c)
def par():
a=float(input("Введите сторону a: "))
h=float(input("Введите высоту h: "))
print("S= ")
print(a*h)
i=input("Введите 'треугольник' для решения периметра треугольника, введите 'параллелограмм' для нахождения его площади")
if i == "треугольник":
rectangle()
elif i == "параллелограмм":
par()
Инструмент Вращения
Объяснение:
Инструмент Вращения может вращать предметы