1) Чтобы заархивировать такой файл, кликните по нему правой кнопкой мышки, далее выберите в контекстном меню проводника вкладку «отправить/сжатая zip-папка». См. скриншот ниже.
Все! Архив должен быть готов. Если зайти в его свойства можно заметить, что размер такого файла уменьшился примерно на 100 Кб. Немного, но если сжимать мегабайты, или гигабайты информации — экономия может стать очень существенна!
А) Program cifr;
Uses crt;
var n,l:integer; s:string;
Begin
read(n);
str(n,s);
l:=length(s);
if (s[1]<>s[2]) and (s[2]<>s[3]) and (s[1]<>s[3])
then begin writeln('Одинаковых цифр нет') end
else writeln('Одинаковые цифры присутствуют');
end.
Б) Program Stroke;
Uses Crt;
Var s: string; n,i,j,l: integer;
Begin
ReadLn(n);
str(n,s);
l:=length(s);
j:=0;
for i := 1 to l div 2 do begin
if s[i]=s[length(s)-i+1]
then j:=1 end;
if j=1 then
writeln('Да, число является палиндромом')
else writeln('Нет, число не является палиндромом');
End.
У тебя была ошибка в том что в процедуре нельзя объявлять переменные, они должны быть объявлены для все программы.
Так же ты зачем-то присваивал Kr , и у тебя не был реализован сам подсчет.
program LAB_8;
uses CRT;
type massiv=array [1..10,1..10] of integer;
var r:massiv;
n,k,i,j:integer;
procedure VVOd_MAS(var A:massiv);
var i,j:integer;
begin
Randomize;
For i:=1 to 10 do
For j:=1 to 10 do
A[i,j]:=Random(100);
end;
procedure VYVOd_MAS(A:massiv);
begin
For i:=1 to 10 do
begin
For j:=1 to 10 do write (A[i,j]:4);
Writeln;
end;
end;
function PODSCHET (A:massiv; kr:integer):integer;
begin
For i:=1 to 10 do
For j:=1 to 10 do
If r[i,j] mod kr=0 then
k:=k+1;
PODSCHET:=k;
end;
// основная программа
begin
VVOd_MAS(r);
VYVOd_MAS(r);
writeln ('Введите любое целое число');
readln(n);
k:=PODSCHET(r,n);
Writeln('В данном массиве ', k, ' чисел кратны данному');
end.
Таблица истинности в приложении
N=2^i i - количество цветов в палитре
Т.к палитра 2^16⇒ i=16
т.е 16 бит на 1 пиксель
пикселей всего 256*256=2^8*2^8=2^16
2^16*16 = 2^16*2^4=2^20 бит все изображение
Переведем в Килобайты
2^20/(2^13)=2^7=128