На станції є бензин кількох марок за різною ціною. Користувач вводить марку бензину та кількість літрів. На екран виводиться марка бензину, кількість літрів та сума до сплати. Зробити через case...of
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