Для хранения растрового изображения размером 307×307 пикселей отвели 16 КБ памяти. Каково максимально возможное число цветов в палитре изображения?​

1.

program z1;

var S,t:integer;

V:real;

begin

write ('S = ');

readln (S);

write ('t = ');

readln (t);

V:=S/t;

writeln ('V = ',V)

end.

2.

program z2;

var a,b,c,P:integer;

begin

write ('a = ');

readln (a);

write ('b = ');

readln (b);

write ('c = ');

readln (c);

P:=a + b + c;

writeln ('P = ',P)

end.

3. 42

Объяснение:

1. Смотри картинки 1,2

2. Смотри картинки 3,4

3.

A = 10

А = 50     В = ?     S = ?

B = A * 4 = 10 * 4 = 40

А = 10     В = 40     S = ?

A = A + B = 10 + 40 = 50

А = 50     В = 40     S = ?

B = B / 5 = 40 / 5 = 8

А = 50     В = 8     S = ?

S = A - B = 50 - 8 = 42

А = 50     В = 8     S = 42

Если считать отрицательные трехзначные, то сумма таких чисел в диапазонах от -999 до -100 и от 100 до 999 будет равна 0. Для только положительных:

//c циклом for
var s,i:integer;
begin
  for i:=100 to 999 do
    if i mod 77 = 0 then s:=s+i;
  writeln('Сумма трехзначных кратных 77: ',s);
end.

Тестовое решение:
Сумма трехзначных кратных 77: 5929

// с циклом while
var s,i:integer;
begin
  i:=100;
  while i<=999 do begin
    if i mod 77 = 0 then s:=s+i;
    i:=i+1;
  end;
  writeln('Сумма трехзначных кратных 77: ',s);
end.