A:1,2,3,4,5;B:-1,-2,-3,-4,-5;C:1,2,3,4,5.
program d;
var a, b, c: integer;
begin
for c:= 1 to 5 do
begin
a:= a + 1;
b:= b - 1;
writeln (a:3,' ',b:3,' ',c:3);
end;
end.
Программа без синтаксических ошибок:
program asd;
var
a,b,c,n, k: longint;
const i=10; j=10;
begin
n:=10*i + 15*j;
write(n,'');
a:= 0;
write(a,' ');
b:= 1;
write(b,' ');
for k:=3 to n do begin
write(a+b,' ');
c:= b;
b:= a + b;
a:= c;
end;
readln
end.
Так как условия задачи нет, то делает ли программа то, что нужно - неизвестно.
54+79 4+9=13(D) 5+7=12(C) Ответ: сумма CD
1)32768 бит /8 (чтобы узнать сколько байтов)=4096 байт
2)4096/1024=4 килобайт