500*400 = 200000 пикселей / 8 / 1024 = 24,4140625
80 кбайт / 24,4140625 = 3,2768 окргуляем в меньшую до целого = 3.
2^3 = 8 цветов
Var a,b,c:integer;
begin
Readln(a,b,c);
Writeln(max(max(a,b),c));
end.
<h2>Что делать, чтобы защититься от вирусной атаки?</h2>
Первым делом нужно ограничиться от скачивания ПОДОЗРИТЕЛЬНЫХ файлов из НЕПРОВЕРЕННЫХ источников, принятия подозрительных решений (таких, как, например: установите расширение AntiWirus и получите 1.000.000 рублей).
Всю эту роль выполняет антивирус, который следует установить на Ваш компьютер, если вы не умеете пользоваться Интернетом. Хороший антивирус (не от MailRu и других подозрительных компаний в этой области), к примеру, Avast, DrWeb, Kaspersky хоть и потребляют большое количество производительности, но предоставляет Вам гарантию защиты от уже ИЗВЕСТНЫХ вирусов.
var
a, b, x2, x3 : real;
begin
writeln('Введите коэффициент a');
readln (a);
writeln('Введите коэффициен b');
readln (b);
if b = 0 then
begin
if a = 0 then writeln ('X - любое число')
else writeln('Корни ур-я равны: 0')
end
else
if (a = 0) or (- b / a <= 0) then writeln ('Корни ур-я равны: 0')
else
begin
x2 := sqrt(-b / a);
x3 := -sqrt(-b / a);
writeln('Корни ур-я равны 0, ', x2,' ',x3);
end;
readln;
end.