Program denuski;
var
a,N,c:integer;
begin
c:=1;
Write('Введите номер дня рождения ');
read(N);
for a:=2 to N do
c:=(c*2)+a;
write('Cумма подаренная на ');
write(N);
write(' день рождения ');
writeln(c,'$');
end.
<span>В 6 заливаем литр. Потом отливаем из 6 два литра в двухлитровую. В 6 литровой остается 4 литра. Затем из 2 литровой переливаем в 5 литровую.</span>
Будешь моей девушкой помагу
Program qq;
Var a:array [1..5] of real;
I:integer;
Begin
Writeln('vvodi dannie');
For i:=1 to 5 do readln(a[i]);
Writeln;
For i:=1 to 5 do writeln(a[i]);
End.
Var w,a,b,c,x:real;
begin
x:=2.8;
b:=-0.3;
c:=4;
writeline ("Input X");
readline (x);
if (x<1.2) then w:=a*x*x+b*x+c;
if (x<1.2) then w:=a*(Pow (x),2) + b*x+c; // Аналогичен предыдущей строке, только там умножали х на х, а тут возводим через функцию pow.
if (x=1.2) then w:= a/x + (Pow (x),2)+1;
if (x>1.2) then w:=(a+b*x)/((Pow (x),2)+ 1);
writeline ("Your answer ", w);
end.