Надо выпить два литора а потом отнять оставшийся
const
N = 3;
var
a: array[1..N] of integer;
i, max: integer;
begin
max := 0;
writeln('Введите результаты трех спортсменов');
for i := 1 to N do readln(a[i]);
for i := 1 to N do
begin
if a[i] > max then
max := a[i];
end;
writeln;
writeln('Лучший результат среди трех спортсменов - ', max);
end.
Подоходный налог составляет 13% от оклада.
Если оклады сотрудников записаны в столбце C (C2:C7), то для вычисления подоходного налога в ячейках столбца D нужно вставить формулы вида:
=C2*13%
Для вычисления значений в столбце E ("К выдаче", E2:E7) нужно вставить формулы вида:
=C2-D2
Разумеется, каждая из формул записывается один раз, а затем растягивается на нужное число строк.
Var a,b,c,d,sr:real;
begin
read(a,b,c,d);
sr:=(a+b+c+d)/4;
if (a<b) and (b<c) and (c<d) then
begin
a:=d;
b:=d;
c:=d;
end
else
if (a>b) and (b>c) and (c>d) then
begin
a:=sr;
b:=a;
c:=a;
d:=a;
end
else
begin
a*=a;
b*=b;
c*=c;
d*=d;
end;
write(a,' ',b,' ',c,' ',d);
<span>end.</span>
Внимание! Если программа не работает, обновите версию PascalABC.NET !
begin
var (a,b):=readreal2('Введите стороны :');
var (c,d):=readreal2('Введите основания :');
var h:=readreal('Введите высоту :');
var S:=((c+d)/2)*h;
writeln('S=',S);
var P:=a+b+c+d;
writeln('P=',P);
end.