Program P1;
var x,y:real; k:integer;
begin
write('Цена товара = '); readln(x);
y:=x; k:=0;
while y<1.5*x do
begin
y:=y*1.01;
k:=k+1;
end;
writeln('k = ',k);
<span>end.</span>
Vari, max, y: integer;
begin
Writeln('Вводите последовательно числа.');
Writeln('Для завершения ввода введите ноль.');
Writeln('----------------------');
max := 0;
y := 0;
repeat
y := y + 1;
write(y, ' число:');
readln(i);
if (y = 1) then max := i;
if (i = 0) then break;
if (i > max) then max := i;
until i = 0;
Writeln('----------------------');
Writeln('Максимальное число: ', max);
Writeln();
end.
С)30.Кажется ,если не правильно простите пожайслуйста.
1. 80*192=15360 точек всего.
256 цветов = 8 бит на точку (1 байт)
<span>15360*1=15360 байт, или 15.36 кБайт.</span>
Адрес должен начинаться с латинской буквы, содержать буквы и цифры, поэтому адресом не могут быть U6!, 1K.
Значит правильные адреса M45 (M - латинская!!!) и АА12 (А, естественно, латинская)