3 года назад

Какие ингридиенты нужны для борща и сколько они стоят

Знания

Информатика

1 ответ:

Егорушка123 года назад

0 0

Вода буряк картошка помідор свіжий мясо свинне біб морква соль перець за смаком кошує десь 60 гривень

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

Ввести 2 числа. Если их произведение отрицательно и четно, умножить его на –2 и вывести на экран, в противном случае увеличить е

Желкин

Полагаю, что так:
program num;
uses crt;
var
x,y,z: integer;
BEGIN

write('Enter the first number: ');
readln(x);
write('Enter the second number: ');
readln(y);
z:=x*y;
if (z<0) AND ((z mod 2) = 0) then
write(z*-2)
else
write(z*1.5);
<span>END.</span>

0 0

3 года назад

Помогите написать код в pascal для вычисления суммы ряда s=(x^2/2!)+(x^4/4!)+(x^6/6!)+...+(x^n/n!)

Tabletka [11]

<h3>// PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>

begin

var x := ReadReal('x=');

var n := ReadInteger('n=');

var (k, p, q, s) := (x * x, 1.0, 1.0, 0.0);

for var i := 1 to n do

begin

p *= k;

q *= 2 * i * (2 * i - 1);

s += p / q

end;

Println('Сумма =', s)

end.

0 0

4 года назад

Помогите пожалуйста решить

jbgj2409

$\displaystyle \overline d\to(a\land \overline c)=d\lor a \land \overline c \\ \\ 
((c \lor b)\to b)\land \lnot(a \lor c)=(\overline{c+b}+b)\cdot\overline{a+c}=(\overline c\cdot\overline b+b)(\overline a\cdot\overline c)= \\ \\ \overline a\,\overline b\,\overline c+\overline a\,b\overline c=\overline a\,\overline c(\overline b+b)=\overline a\,\overline c=\overline a\land\overline c$

0 0

1 год назад

Назовите ограничения на переменную-счетчик в цикле с параметром в паскале

ТВОЙ [6K]

Переменная локальная (в пределах цикла)
Ограниченна определенным типом/заданным числом

0 0

1 год назад

Составить алгоритм сложения двух целых чисел C и D, вводимых с клавиатуры. Результат сложения записать в виде переменной P. По д

Loli233 [123]

Начало
Ввод C и D
P = C + D
Вывод D
Конец

Сама программа:
var p,c,d: Integer;
begin
writeln('Введите c,d');
readln(c,d);
p:=c+d;
writeln('p=',p);
end.

0 0

4 года назад