Var
s,i : integer;
begin
s :=0;
for i := 2 to 6 do
s := s + sqr(i);
writeln (s);
end.
1 байт → 8 битов.
2 байта → 16 битов.
Удачи! :)
Неформальный исполнитель - человек => ученик
Ответ:
010101010+01010=10110100 (двоичная система счисления)
program raf105;
var
a: array[1..100] of integer;
i,n,c: integer;
x: boolean;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
repeat
x:= True;
readln(n);
for i:=2 to n-1 do
if (n mod i = 0) and (n <> 0)
then x:= False;
if x and (n <> 0)
then begin
c:= c+1;
a[c]:= n;
end;
until n = 0;
write('Простые числа: ');
for i:=1 to c do
write(a[i],' ');
end.
<h3><u>PascalABC 3.4.2</u></h3>