Ответ:
1)3
2)-
Объяснение:
1)600:200=3byte
2)512-сообшения 6
Тут не достаточно информации сколько хотя бы 1 символ весит?
program vichislenie_function;
var
x, y: real;
begin
writeln('Введи х');
readln(x);
y := x * x + 2 / (7 * x) - 9;
writeln('y=', y:5:2);
end.
Var
n, cnt, sum, i, t: integer;
begin
read(n);
cnt := 0;
sum := 0;
for i := 1 to n do
begin
read(t);
if t > 0 then
begin
inc(cnt);
sum := sum + t;
end;
end;
writeln(sum / cnt : 0 : 1);
write(cnt);
end.
все во вложении (сначало само задание потом ответ)