1-д) var a,b:longint;
c:real;
c:=Sqrt(100)*a+16/5*b;
write (c);
end.
3-а) var b,c:longint;
c:=Sqrt(1)+2*1*b+Sqrt(b);
write (c);
end.
3-б) var a,c:longint;
c:=Abs (1+Sqrt(a));
write (c);
end.
Мы имеем 3 емкости: 2 мерные и одна, в которую мы должны налить определенное кол-во воды. у водолея есть 3 команды:наполнить сосуд, опустошить, перелить из одного в другой. Если будут вопросы по решению задач в водолее, обращайся ко мне)
Конечная точка
x = x0 + 3(1+1)+3 = x0+9
y = y0 + 3(3-2)+9 = y0+12
х0 у0 - начальные координаты
(9, 12) - общий вектор смешения за алгоритм
Таак. 56 кбит/с = 7 кбайт/с
7*5 = 35 кбайт/5с
Система бникод ─ 2 байта на символ
Итого 35/2 = 17 символов.
<h2>Ошибки</h2>
var p,i,x,count: integer;
begin
count := 0;
<u>p := </u><em><u>0 </u></em><u>;
</u>
for i := 1 to 4 do begin
read (x);
if x >= 0 then begin
p := p*x;
count := count+1
end
end;
if count > 0 then begin
<u>writeln(</u><em><u>х </u></em><u>);
</u>
writeln(p);
end
else
writeln('NO')
<u>end </u>
<u />
- Переменная p в начале равняется нулю. В эту переменную будет записываться общее произведение неотрицательных чисел, умножая p на каждое неотрицательное число, но при умножении любого числа на 0 произведение будет 0, поэтому нужно в начале присвоить ей единицу
- В конце выводится последнее введённое число, а нужно вывести количество
- После end не стоит точка
<h3>Правильный вариант программы</h3>
var p,i,x,count: integer;
begin
count := 0;
p := 1;
for i := 1 to 4 do begin
read (x);
if x >= 0 then begin
p := p*x;
count := count+1
end
end;
if count > 0 then begin
writeln(count);
writeln(p);
end
else
writeln('NO')
end.
