страница видеопамяти составляет 16000 байтов. Дисплей работает в режиме 320*400 пикселей. Сколько цветов в палитре?

139

491

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

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

kamilahamidova

Информатика

4,7(39 оценок)

Var x, sum: integer; begin sum : = 1; writeln('введите последовтельность чисел.', #10, '0 - остановить программу, получить результат.'); repeat readln(x); if(x mod 3 = 0) and (x < > 0) then sum : = sum * x; until(x = 0); writeln('произведение числе кратных 3: ', sum); end.