Var
s, a, b: string;
i: integer;
begin
readln(s);
a:='Да';
b:='Нет';
while pos(a, s) > 0 do
begin
i:=pos(a, s);
delete(s, i, length(a));
insert(b, s, i);
end;
writeln(s);
<span>end.</span>
1.
Program zavdannia;
var x,y: real;
begin
read(x);
y:=(x+4)/(x-2);
write(y);
end.
2.
Program zavd2;
var x,y: real;
begin
y :=sqrt((x*x-4*x-4)/(x-8);
write(y);
end.
Код Pascal:
Var
P:byte;
Begin
Write('Введите рост человека: ');ReadLn(P);
if P > 180 then WriteLn('Высокий')
else WriteLn('Не очень высокий')
End.
Пример работы программы:
Введите рост человека: 150
Не очень высокий
1) Костюм;
2) Фон;
3) Алгоритм;
4) Игра;
5) Анимация;
6) Цель;
7) Уровень;
8) Персонаж;
9) Скрипт;
10) Сценарий.
Надеюсь ответ достаточно полон.
Сначала считаем количество пикселей 1024*768=786432
затем по формуле N=2^i находим количество бит на 1 пиксель
8=2^i ⇒ i=3, количество пикселей умножаем на глубину цвета (i)
786432*3=2359296 бит / 8 = 294912 байт / 1024 = 288 кбайт
Ответ: 288 КБайт