<h3>PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(30, -50, 50);
a.Println;
Writeln('Сумма нечетных значений равна ', a.Where(t -> t.IsOdd).Sum);
var n := ReadInteger('A=');
Print('Искомые индексы:');
a.Select((v, i)-> (v, i + 1)).Where(t -> t[0] > n)
.Select(t -> t[1]).Println;
n := ReadInteger('k=');
if a.Any(t -> t mod n = 0) then Println('Есть кратные')
else Println('Нет кратных')
end.
1 бит т.к красных и черных в колоде одинаковое кол-во.
В лучший ответ пожалуйста, 2 до отличника не хватает
Var
a,b,p,s:real;
begin
Writeln('Введите значение а = ');
read(a);
writeln('Введите значение b = ');
read(b);
s:=a*b;
p:=2*(a+b);
writeln('Площадь = ',s);
Writeln('Периметр = ', p);
<span>end.</span>
import cmath
x = int(input("x = "))
y = int(input("y = "))
print((1 + cmath.sin(cmath.sqrt(x + 1)))/cmath.cos(12 * y - 4))
Многое зависит от телефона и приложения установленного там:
Тебе надо выбрать картинку и найти слово "Анимация" и там уже выбрать нужный эффект