Задание 6:
1. B
2. D
3. A
4. C
Задание 7:
program vibory;
var a:integer;
begin
readln(a);
if a>=18 then writeln('Вы имеете право голосовать')
else writeln('Вы не имеете право голосовать');
end.
Ответ: я насчитала 3 это dade, dcc, bec.
Объяснение:01-d,10-a,01-d,00-e; 01-d,100-c,100-c; 011-b,00-e,100-c.
Ответ:
84
Объяснение:
n=1!+2!+3!+4!+5!+6!+7!=84
можешь сделать как лучшее пожалуйста
<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (a,d,k):=ReadReal3('Введите a, d, k');
for var i:=0 to Trunc((d-a)/k) do
begin
var x:=a+i*k;
var y:=x**3+4*Abs(x);
Writeln(x:30:15,y:30:15)
end
end.
Var p,a,b:integer;
begin
writeln ('Введите стороны прямоугольника a и b');
readln (a,b);
p:=(a+b)*2;
writeln ('Периметр прямоугольника равен ',p);
end.