1)
program prim;
uses crt;
var h,b,dev:integer;
begin
clrscr;
writeln("Введите общее кол-во детей");
readln(h);
writeln("Из них мальчиков");
readln(b);
dev:=h-b;
writeln("На день рождения пришло", dev ,"девочек.");
repeat until
keypressed;
end.
2)
program prim1;
uses crt;
var x:integer;
y:real;
begin
clrscr;
x:=3;
y:=(sqr(x)+2*x+3)/4;
writeln("Y равно: ", y);
repeat until
keypressed;
<span>end.</span>
Var
i, a: byte;
begin
Randomize;
for i:=1 to 3 do write(Random(101):4);
<span>end.</span>
Var i,n:integer;
begin
read(n);
for i:=1 to n do
write(i:5);
<span>end.
если в паскале то вот.</span>
Ответ:
128
Объяснение:
Знаю решение комбинаторикой:
Чтобы выбрать 1 цифру нам потребуется 4 варианта (п, е, т, я). для выбора второй цифры мы можем использовать только 2 варианта.( если же первая буква согласная, то вторая - либо е либо я. если первая буква гласная, то вторая - либо п либо т)
для третьей буквы и для всех последующих тоже 2 варианта (по той же логике). в итоге нам нужно перемножить все варианты: 4•2•2•2•2•2=128