Program ok;
var
num:integer;
a,b,c:integer;
begin
readln(num);
a:=num mod 10; num:=(num-a)div 10;
b:=num mod 10; num:=(num-b)div 10;
c:=num;
num:=a+b+c;
if num or 1 = num then
writeln('Нечетное') else writeln('Четное');
readln;
<span>end.</span>
Program n1;
var i: integer;
begin
for i:=10 to 99 do if i*i mod 13=0 then write(i,' ');
end.
1 минута 6 секунд = 66 секунд
16 384 / 8 / 1024= 2 Килобайта/с
2*66= 132 Килобайта
Ответ. Объём файла 132 килобайта.
Var a,c:integer;begin a:=1; c:=0;while a <> 1024 do beginif a <> 1024 then beginc:=c+1; a:=a*2;end;end;writeln(c); end.
Обычное дело, сначала инициализировал массив.
Вывел его, потом обычным вложенным циклом проверил всё.
Думаю на счёт того как я проверял вопросов не будет.
Объясню, что же означает строка "if (neg&&a) break;"
Это значит, что если мы уже нашли негативное число и число равное А, то наш цикл прекращает работу ибо он уже нам не нужен.