<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.
Ответ:
Я думаю что это <em>1</em><em>.</em> <em>Кисть</em><em> </em><em>2</em><em>.</em><em> </em><em>Карандаш</em><em> </em><em>3</em><em>.</em><em> </em><em>Фигуры</em>
Объяснение:
Я перечислил эти ответы т.к с помощью этих инструментов огромное количество людей начинают с ними рисовать.
Var a,b,c:int64;
begin
read(a,b,c);
writeln(c);
writeln(a);
writeln(b);
<span>end.</span>
не понимаю что значит "четность тела". скорее всего вы имели ввиду четность числа. вот прога:
var a: integer;
begin
read(a);
if a mod 2=0 then write('четно')
else write('не четно');
end.
Ответ: 3
Из таблицы:
1) компьютер E соединён только с одним компьютером => рисунки 1 и 2 не подходят
2) компьютер E соединён только с одним компьютером и этот компьютер B => рисунок 4 не подходит
3) проверяем остальные соединения => рисунок 3 точно нужный