program test;
const N=10000;
var a:array[1..n] of integer;
k,i,l:integer;
begin
writeln('Введите количество чисел');
readln(l);
for i:=1 to l do begin
write('Число: '); readln(a[i]);
if a[i]>0 then k:=k+1;
end;
write('Ответ: ',k);
end.
600 Кбайт = 600*1024 байт = 600*1024*8 бит
Память для одного пикселя = 600*1024*8/(640*480) = 16 бит
Количество цветов в палитре = 2^16 = 65536
2 - (командир полка) - для поддержания дисциплины в полке.
3 - для поддержания порядка в государстве.
4 - для поддержания порядка в кабинете.
5 - чтобы знать, как пользоваться компьютером.
6 - чтобы правильно решить задачу.
Я думаю что тут текстовый способ передачи информации
Не заданы значения переменных.
Правильный код:
<span>program Lipov_2;
var a, b, k: integer;
begin
a:=14;
b:=365;
writeln('a=', a);
</span>writeln('b=', b); <span>
k:=a*b;
writeln(a,'*',b,'=', k);
end.</span>