Var k,a,b,c:integer;
begin
writeln('введите первое число');
readln(a);
writeln('введите второе число');
readln(b);
writeln('введите третье число');
readln(c);
writeln('введите число k');
readln(k);
if a mod k = 0 then
writeln('Первое число кратно k')
else
writeln('Первое число не кратно k');
if b mod k = 0 then
writeln('Второе число кратно k')
else
writeln('Второе число не кратно k');
if c mod k = 0 then
writeln('Третье число кратно K')
else
writeln('Третье число кратно k');
<span>end.
Это первая задача!</span>
<u>PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadArrInteger(15);
var s:=Range(0,a.Length-1,2).Select(i->a[i]);
Writeln('Среднее геометрическое элементов на нечетных позициях ',
(s.Aggregate(1.0,(p,q)->(p*q)))**(1/s.Count))
end.
Var a,b,s
begin
readln
end.
Потому-что оставшаяся память резервируются под программы для более быстрого запуска
Стакан перемещается на третье место, соответственно чашка на четвертое. Теперь известно, что кофе оказалось посередине, т.е. оно в стакане. Справа и слева чай и молоко. Т.е. в кружке либо чай, либо молоко и в чашке тоже. Но известно, что в бутылке минеральная вода, а по соседству с молоком - квас. В чашке - молоко, в кувшине квас, в кружке чай.
<span><span /><span><span>
</span><span /></span></span><span><span /><span><span>
кофе
чай
молоко
квас
минеральная вода
</span><span>бутылка
<span> -</span><span> -</span><span> -</span><span> -</span><span> +</span>
</span><span>кружка
<span> +</span>
</span><span>чашка
<span>+</span>
</span><span>
стакан
<span> +</span><span> -</span><span> -</span><span> -</span><span> -</span>
</span><span>кувшин
<span> +</span>
</span></span></span>
