var
str : string;
a, b : char;
count : integer;
begin
assign (input, 'file.txt'); reset (input);
while not eof do
begin
readln (str);
if length (str) > 1 then a := str[2]
else a := '1';
if length (str) > 1 then b := str[2]
else b := '1'; //Заведомо неверные данные
if (a ='+') and (b = '-') then inc (count);
end;
writeln (count);
end.
Var a,p:integer;
begin
write('a = ');
readln(a);
a:=abs(a);
p:=1;
while a<>0 do
begin
p:=p*(a mod 10);
a:=a div 10;
end;
p:=p*p;
writeln('p = ',p);
end.
Пример:
a = 273
p = 1764
<span> /\ - это логическое умножение</span>
var a,b:integer;
begin
writeln ('Введите два числа:');
read (a,b);
if a > b then begin
writeln ('Максимальное число: ',a);
end
else begin
writeln ('Максимальное число: ',b);
end;
end.
8192 байт = 8192*8 бит
Память для одного пикселя = 8192*8/(32*128) = 16 бит
Количество цветов = 2^16 = 65536