var a,k:real;
n:integer;
begin
readln(a,n);
k:=a;
while n<>1 do begin
n:=n-1;
a:=a*k;
end;
writeln(a);
end.
Назначение иформационной системы: хранение и использование документов с данными. Документы могут быть представлены на бумажных и электронных носителях информации.
Program n_5;
var
a: integer;
procedure Error;
begin
write('ERROR');
exit;
end;
begin
write('Введите номер месяца - ');
readln(a);
if (a <= 0) or (a > 12) then
Error
else
if (a = 12) or (a = 1) or (a = 2) then
write('Зима')
else
if (a = 3) or (a = 4) or (a = 5) then
write('Весна')
else
if (a = 6) or (a = 7) or (a = 8) then
write('Лето')
else
if (a = 9) or (a = 10) or (a = 11) then
write('Осень');
end.
Вот полный список примитивов: circle, ellipse, line, polygon, polyline, rect. Соответственно, нужно выбрать так:
- arc
- ✓ circle
- helix
- ✓ polyline
- ✓ ellipse
- ✓ rect
- hyperbola
101 0100 1010(2) = 54A(16)
BABA(16) = 1011 1010 1011 1010(2)
110 0011 0110(2) = 636(16)
CACA(16) = 1100 1010 1100 1010(2)