1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
a:array[1..100]of integer;
i,n:integer;
begin
writeln('skolko elementov?');
readln(n);
randomize;
for i:=1 to n do begin
a[i]:=random(100);
write(a[i]:3);
end;
writeln;
for i:=n downto 1 do
write(a[i]:3);
end.
JPEG<span> — </span>формат<span>, в котором применяется сжатие </span>изображения<span> с потерей </span>качества<span>, у него наименьший размер </span>файлов<span> фотографий и наибольшие </span><span>потери </span>качества<span>. То-есть за счет сжатия изображения!</span>
Var
a,b,c,k:integer;
begin
Read(a,b,c);
k:=1;
repeat
b:=2*b;
a:=a-b div 2;
if a<=0 then Writeln('Черт разорен')
else
begin
a:=a+c;
b:=b-c;
if b<=0 then Writeln('Крестьянин разорен')
else k:=k+1
end
until (a<=0) or (b<=0);
Writeln(k)
end.
Var a,k:integer;
begin
k:=0;
readln(a);
while a<>0 do
begin
if (abs(a) mod 5=0)or(abs(a) mod 9=0)
then k:=k+1;
readln(a);
end;
writeln('k = ',k);
end.
Пример:
15
91
90
0
k = 2