1) Маша
2) Молодец
3) Молоток
4ое у меня не прогружается
1)var i,n:integer;x,p:real;
begin
readln(n,x);
p:=1;
for i:= 1 to n do
p:=p*x;
write(p);
readln
end.
2)var x:integer;
begin
readln(x);
if x < 18 then
write('да')
else
write('нет');
readln
end.
<span>Упростим формулу
НЕ((Белки> 100) И (Углеводы < 100)) = (правило де Моргана)
= </span><span>НЕ(Белки> 100) ИЛИ НЕ(Углеводы < 100) =
</span>= (Белки <= 100) ИЛИ (Углеводы >= 100)
Белки <= 100 - молоко, масло, картофель
Углеводы >= 100 - крупа, картофель
Всего 4 строки
Один из наименее известных языков програмирования,используется для обучения програнированию в старших классах и на первых курсах вузов.
program test;
var x: integer;
begin
writeln('Введите х');
if x<0 then write (x) else write (2*x);
end.