3487 байт /1024 =... кбайт
35.4 гбайт/1024/1024= ... кбайт
32 бит /8 =… байт
22 бита = 22 бит
Более изящное решение :)
Проблема в строке c:= (b*b*b);
Ты ищешь сумму кубов, а для 4-значных чисел нужно искать сумму 4-х степеней. Нужно проверять число а: если от 100 до 999, то выполняем c:= (b*b*b); а если от 1000 до 9999, то выполняем c:= (b*b*b*b);
Код ниже работает и выдаёт результат:
число Армстронга ==> 153
число Армстронга ==> 370
число Армстронга ==> 371
число Армстронга ==> 407
число Армстронга ==> 1634
число Армстронга ==> 8208
число Армстронга ==> 9474
****************************************************************
var a,b,c,d,a2:integer;
begin
for a:=100 to 9999 do begin
d:=0;
a2:=a;
while (a2 <> 0) do begin
b:= a2 mod 10;
a2:= a2 div 10;
if a<1000 then c:= (b*b*b)
else c:= (b*b*b*b);
d:= d+c;
end;
if (a = d) then writeln('число Армстронга ==> ', a);
end;
end.
Как бы написал я:
program n_1;
var x1, x2, y1, y2, x, y: integer;
begin
writeln ('Введите значения координат(x1,x2,y1,y2,x,y):');
readln (x1, x2, y1, y2, x, y);
if (x>x1) and (x<x2) and (y>y2) and (y<y1) then writeln('Точка с координатами (',x,';',y,') пренадлежит прямоугольнику')
else writeln('Точка с координатами (',x,';',y,') не пренадлежит прямоугольнику');
end.
Булевой переменной не нужно, она же 1 раз используется.
Далее, ошибка была (x<2) нужно было
Ну или если только без ошибки, то вот:
program n_1;
var x1, x2, y1, y2, x, y: integer;
a: Boolean;
begin
writeln ('Введите значения координат');
readln (x1, x2, y1, y2, x, y);
a:= (x>x1)and(x<x2)and(y>y2)and(y<y1);
writeln ('Точка с координатами принадлежит прямоугольнику ', a);
end.
Количество событий было равно двум в девятой степени или 512.
1)
Program n1;
var i: integer;
begin
for i:=1 to 5 do writeln('Иван Иванов');
end.
2)
Program n2;
var i,sum,n: integer;
begin
readln(n);
sum:=0;
for i:=1 to n do sum:=sum+i;
writeln(sum);
end.
3)
Program n3;
var i,sum,n: integer;
begin
readln(n);
sum:=0;
for i:=1 to n do sum:=sum+i*i;
writeln(sum);
end.
4)
Program n4;
var a: integer;
begin
readln(a);
while a<>0 do readln(a);
end.