1)
program z1;
Var a:integer;
Begin read(a);
if (a>9) and (a<100) then writeln(a, '-двузначное число')
else writeln(a, '-не является двузначным числом');
end.
2)
program z2;
Var i:integer;
Begin
for i:=1 to 9 do if (i mod 2 = 1) then writeln(i, ', ');
end.
2 способ:
program z2;
Var i:integer;
Begin
i:=1;
while i<=9 do
begin write(i, ', ');
i:=i+2;
end;
end.
3)
program z3;
Var i,n:integer;
S:real;
a: array[1..100] of real;
Begin
write('Введите количество элементов массива:');
readln(n);
write('Введите элементы массива:');
for i:=1 to n do read(a[i]);
i:=1; S:=0;
while i<=n do
begin S:=S+a[i];
i:=i+2;
end;
write('S=',S);
end.
Экзамен числами, то есть 0-положительно, 1-отрицательно.
P=K/N - вероятность получения четвёрки
К - количество четвёрок
К=р*N
N = 100 общее количество оценок
1/р =2^i, i=2 бита - количество информации о событии "четвёрка"
р= 1/2^i = 1/2²=1/4 - вероятность получения четвёрки
K=100*1/4 =25 четвёрок получил
1. На картинке.
2. (1+2+3)/2=3
3.Если сумму чисел 5 и 10 умножить на 2, то получится 30.
1)
var x,y:ineger;
begin
readln(x,y);
if x>y then wrietln('X starshe Y na', x-y) else writeln('Y starhe X na ',y-x);
readln;
end.
2)
var a,b,c:integer;
begin
if a+b>c then
begin
if (a+c>b) and (b+c>a) writeln('Treygolnik')
else writeln('Error');
end
else writeln('Error');
end.