Var f,f1:text;
s:string;
begin
assign(f,'f.txt');
reset(f);
assign(f1,'f1.txt');
rewrite(f1);
while not eof(f) do
begin
readln(f,s);
{есть функция:
function TrimRight(s: string): string;
Возвращает строку с удаленными конечными пробелами
Можно и так, как написано ниже}
while s[length(s)]=' ' do delete(s,length(s),1);
writeln(f1,s);
end;
close(f);
close(f1);
end.
Общее количество пикселей: 2500 * 1500 = 3750000 px
Память: 1.5 MB = 12582912 bit
На один пиксель приходится: 12582912 / 3750000, т.е максимум 3 бита.
При такой глубине цвета доступны 8 цветов.
Var n,m:integer;
begin
write('n = '); readln(n);
m:=(n div 100 * 10) + n mod 10;
writeln('m = ',m);
end.
Пример:
n = 672
m = 62
<span>n = int(input('n ='))
m = int(input('m ='))
if n%2<span>:
</span> for i in range(n,m+1,2)<span>:
</span> print(i,'**2 = ',i**2)
else<span>:
</span> for i in range(n+1, m+1, 2)<span>:
</span> print(i, '**2 = ', i ** 2)</span>