Ответ:
Объяснение:
можно составить 12 кодов т.к. каждая согласная может находиться только в трёх местах, а гласные только в двух. Из чего следует что можно составить только эти 12 кодов:
САВЕТ, САТЕВ, ТАВЕС, ТАСЕВ, ВАТЕС, ВАСЕТ, СЕТАВ, СЕВАТ, ТЕСАВ, ТЕВАС, ВЕТАС, ВЕСАТ.
Вот решение в пару строчек:
program with_for;
var i, x: integer;
begin
for i:= 1 to 100 do if i mod 2 =0 then x:=x+i*2 else x:=x+i;
writeln(x);
end.
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:array of real;
a:=SeqRandom(n,-99,99).Select(t->real(t)).ToArray; a.Println; Writeln;
a.Where(t->Trunc(t) mod 3 <>0).Println
end.
я думаю что вариант а будет правильным. удачи
1)
var N,a,b,c:integer;
begin
read(N);
a:=N div(100);
b:=(N div(10))mod(10);
c:=N mod(10);
if (a+b+c) mod(2)=0 then
write('Да') else
write('Нет');
end.
2)
var N,a,b,c:integer; d:real;
begin
read(N);
a:=N div(100);
b:=(N div(10))mod(10);
c:=N mod(10);
d:=power(a+b+c, 3);
if d=sqr(N) then
write('Да') else
write('Нет');
end.