Var
i,n:integer;
s:real;
begin
writeln('Введите n');
readln(n);
for i:=1 to n do
s:=s+(1/i);
writeln(s);
<span>end.</span>
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!
1)
begin
var x:=ReadReal('X =');
Writeln('Y = ', x>=0 ? 7*x - 3:2*x*x*x);
end.
2)
begin
var a:=ReadReal('Результат первого участника равен');
var b:=ReadReal('Результат второго участника равен');
var c:=ReadReal('Результат третьего участника равен');
Writeln('Лучший результат: ', min(min(a,b), c));
end.
3)
begin
var b:= ReadReal('b =');
Writeln(b > 3? b-5:b*2);
end.
Что-то я далек от блок схем... Обе картинки цикла
Дано: N(ч) = 8; N(б) = 24.
Найти: i(ч) = ?
Решение:
1) N = 8 + 24 = 32 — всего шаров.
2) р(ч) = 8/32 =1/4 — вероятность доставания черного шара.
3) i(ч) = log2 ( 1/(1/4)) = 2 бита.
Ответ: 2 бита.
Ответ: Это будет на Python 2.7
Объяснение:
# Учитель, это решал не ваш ученик
# Здесь мы даем ПК даные для обработки
a, b, c =int(input())
first = 5*a-3
second = 4-3*b
print first*second + c
# Надеюсь помог