Procedure SolveLinear;
var
k, x, b, y: real;
begin
write('k=');
readln(k);
write('x=');
readln(x);
write('b=');
readln(b);
y := k * x + b;
writeln('y=kx+b=', y);
end;

0 0

4 года назад

Загадано слово из 10 букв. Вы просите открыть 5 букву, вам ее открыли. сколько информации вы получили? покажите решение этой зад

A R T E M I K [6]

Количество информации вычисляется по формуле log(2)10≈3,32

0 0

4 года назад

РЕШИТЕ Задание по информатике! ПОЖалуйста! Срочно! 1. Вычислить произведение нечетных чисел от 40 до 160 2. Вычислить сумму чисе

каркин дима [45]

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
Range(41,160,2).Aggregate(BigInteger(1),(i,j)->i*j).Println;
Range(1500,3000).Where(t->t mod 150=0).Sum.Println;
Range(2500,7000).Where(t->t mod 17=0).Count.Println
end.

0 0

4 года назад

Прочитать ещё 2 ответа