Створити програму яка порівнює добуток двох чисел числом 50 ( тобто добуток менший за 50- умова вірна добуток більший за 50 -умова хибна). Результат вивести на екран
​

один пиксель может содержать любой из 256 = 2^8 цветов => для кодирования 256 цветов нужно 8 бит => для кодирования одного пикселя нужно 8 бит.

500-10%=500-50=450

ответ: 450р

program dl9_meru3;

var a,s: real; n,i: integer

begin

writeln ('vvedit a i n(> 0)');

readln (a,n);

s: =0;  

a: =a+1;  

for i: =2 to n do

begin 

s: =s+a;

a: =a*a;

end;

writeln ('suma=',s);

readln

end. 

как по мне то лучше удобство и ничего лишнего, ведь список сохранять не говорили

var s: string;

k: integer;

begin  repeat      write('введите фамилию: ');       readln(s);       if (length(s)=9) or (length(s)=8) then

          k: =k+1   until s=''; {прекращаем чтенье если нам посылают пустую строку}  writeln(k); end.