Есть ответ 👍

1.Подумайте, как уплотнить информацию о рисунке при его записи в файл, если известно, что: а) в рисунке одновременно содержится только 16 цветовых оттенков из 138 возможных; б) в рисунке присутствуют все 130 оттенков одновременно, но количество точек, закрашенных разными оттенками, сильно различаются.

239
291
Посмотреть ответы 1

Ответы на вопрос:


ответ 1:

Program zadacha;

var

i,n:integer;

begin

 writeln ('Введите число: '); readln(n);

for i:=1 to n do  write(n-i+1);

end.

ответ 2:

Program zadacha;

var

i,a,b:integer;

begin

 writeln ('Введите A: '); readln(a);

 writeln ('Введите B: '); readln(b);

for i:=a to b do

 if (i mod 2 <> 0) then writeln(i);

end.

ответ 3:

Program zadacha;

var

i,a,b,sum:integer;

begin

 writeln ('Введите A: '); readln(a);

 writeln ('Введите B: '); readln(b);

for i:=a to b do

 if (i mod 10 = 7) then begin sum:=sum+i; end;  

 writeln('Результат: ',sum);

end.

Популярно: Информатика