//Pascal
var
X, Y, z: real;
begin
write('X = ');
readln(X);
write('Y = ');
readln(Y);
if x <= y then
z := x + y
else
z := 1 - x + y;
writeln('z = ', z);
end.
Program p_2;
var
a : array[1..10,1..10] of integer; // двумерный массив.
i, j, p, o : integer;
begin
// Тут считаем,что массив уже получен
for i := 1 to 10 do
begin
p := 0;
o := 0;
for j := 1 to 10 do
if (a[i,j] > 0)
then p := p + 1
else o := o + 1;
if(o = p) then
for j := 1 to 10 do
write(a[i,j], ' ');
end;
end.
3+1=4
4*5=20
20*5=100
100+1=101
101*5=505
Т.е. команды: 12212
Это очень легко.Ну во первых у тебя должна быть презентация к проекту.Во вторых должен быть текст который ты должен знать наизусть.В третьтих не беспокоится и рассказывать с интересом чтобы каждый хорошо слушал.Надеюсь я тебе помог.