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
Вычислительная техника является важнейшим компонентом процесса вычислений и обработки данных. первыми приспособлениями для вычислений были, вероятно, всем известные счётные палочки, которые и сегодня используются в начальных классах многих школ для обучения счёту. развиваясь, эти приспособления становились более сложными, например, такими как финикийские глиняные фигурки, также предназначаемые для наглядного представления количества считаемых предметов. такими приспособлениями, похоже, пользовались торговцы и счетоводы того времени.
n=7;
type
V=array[1..n] of real;
var
P:V;
i,k:integer;
a,b,c,d:real;
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