Нужен текст программы для Паскаль формула M=cos2y+3,6(e^x)

Знания

Информатика

1 ответ:

lega-ua [191]4 года назад

0 0

Program formula;
var y,x,M:real;
begin
readln(y,x);
M:=cos(2*y)+3.6*exp(x);
write('M=', M);
end.

Читайте также

Число 30107 может существовать в систамах счислений с основанием

missxonina [677]

системы исчисления от 7 до 16

0 0

3 года назад

Помогите решить ((0&0)v0)&(1vA)

utti-cohisi [32]

0&0=0

0v0=0

1vA=1

0&1=0

((0&0)v0)&(1vA)=0

0 0

4 года назад

Операционная система: 1) Система программ, которая обеспечивает совместную работу всех устройств компьютера по обработке информа

Exemirs

Однозначно 1 номер
Гарантирую

0 0

4 года назад

N-Factorial это произведение всех чисел от 1 до N. Для задного числа N определите сколько нулей в конце десятичной записи N-Fact

tanya412

Сначала банальный код - рабочий, но уже на больших числах будет переполнение переменной факториала.
var n, i, fact, ans : integer;
begin
read(n);
fact := 1;
for i := 2 to n do
fact := fact * i;
while (fact mod 10 = 0) do begin
ans := ans + 1;
fact := fact div 10;
end;
writeln(ans);
end.

Теперь более "умный" код, в нём использован тот факт, что простое число p входит в разложение факториала числа N = [N/p] + [N/p^2] + [N/p^3] + ..., где [x] - целая часть числа x.
var n, i, fact, c, pow, ans : integer;
{c - сколько раз входит в разложение числа n! цифра 5}
begin
read(n);
pow := 5;
while (pow <= n) do begin
c += n div pow;
pow := pow * 5;
end;
writeln(c);
end.

0 0

4 года назад

Ваш новый знакомый в социальной сети попросил срочно сообщить ему ваш номер телефона и домашний адрес. Что делать?

solvy [77]

Ответ:

Спросить

Объяснение:

Спросить зачем ему адрес и номер

0 0

4 года назад

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