while (rule = true) do begin k := k + 1; tmp := a1 + k * d;
if (tmp < 50) then max := tmp
else rule := false;
end;
sum := (a1 + max) / 2 * k;
Writeln(); Writeln('Сумма = ', sum);
End.
Программа будет работать только для арифметических прогрессий, например, таких, как последовательность из задания. Вводить нужно 2 целых числа (первые два члена прогрессии) через пробел (в вашем случае 4 и 7)
begin Writeln('Вводите длины сторон четырехугольника через пробел'); for i:=1 to n do begin Write(i,': '); Read(a,b,c,d); P[i]:=a+b+c+d; end; k:=0; for i:=n-1 downto 1 do if P[i]=P[n] then k:=k+1; Writeln('Четырехугольников с периметром, как у последнего: ',k) end.
Пример Вводите длины сторон четырехугольника через пробел 1: 5 7 3 8 2: 3 7 3 6 3: 5 8 5 2 4: 6 8 4 1.9 5: 8 3 5 9 6: 7 3 7 2 7: 5 5 5 4 Четырехугольников с периметром, как у последнего: 2
110101
Объяснение:
Развернутая форма записи числа - это сумма цифр числа умноженных на основание системы счисления в
степени разряда.
Т.к. число двоичное, то основание системы счисления 2.
Записываем цифры слева, а умножение на основание игнорируем.