Флаг Австрии принят в 1919 году. Отменён в 1938 году. Вновь восстановлен как государственный в 1945 году. Национальный флаг Австрии традиционно представляет собой прямоугольное полотнище с соотношением сторон 2:3 (хотя законодательно не утверждено точное соотношение сторон и поэтому могут использоваться флаги разной длины и ширины[2] ), состоящее из трёх равновеликих горизонтальных полос — верхней красной, средней белой и нижней красной. Наряду с флагом Дании считается одним из старейших флагов Европы.
Флаг Австрии
Австрия
Flag of Austria.svg
Утверждён
21 октября 1919
Отменён
13 марта 1938
Повторно
учреждён
1 мая 1945[1]
1)
Program Pr1;
uses crt;
var x,i,n:integer;
begin
clrscr;
readln(n);
x:=1;
for i:=1 to n do x:=x*i;
writeln(x);
end.
2)
Program Pr1;
uses crt;
var x,y:real;
Begin
clrscr;
readln(x,y);
writeln(Exp(y*ln(x)));
end.
3)
Program Pr1;
uses crt;
var mas:array[byte] of integer;
i,n,c,b:integer;
Begin
clrscr;
writeln('Vvedite kol chisel');
readln(n);
c:=0;b:=1;
for i:=1 to n do begin
writeln('vvedite ',i,' chislo ');
readln(mas[i]);
end;
For i:=1 to n do if mas[i]<0 then c:=c+1
else b:=b*mas[i];
writeln('Chislo otrizateln. ',c,' Proizvedenie polojiteln ',b);
end.
4)
Program Pr1;
uses crt;
var x,y,i:integer;
Begin
clrscr;
readln(x);
y:=0;
for i:=100 to 999 do if i>x then begin
writeln(i);
y:=y+1;
end;
writeln('Vsego ',y);
end.
Uses crt;
var a,b: integer;
begin
clrscr;
write('A = ');
readln(a);
write('B = ');
readln(b);
writeln;
writeln(a, '+', b,'=',a+b);
writeln(a, '-', b,'=',a-b);
writeln(a, '*', b,'=',a*b);
writeln(a, '/', b,'=',(a/b):0:3);
end.