P=m/n
m- количество возможных благоприятных исходов
n - общее число исходов
n=10+10+2+3=25
m=2
P=2/25=0,08
1) Name: aray[1..10] of integer;
3)scr(1) scr(2) ...
4) Program Name;
uses crt;
var a,b,c:integer;
BEGIN
b:=0;
for a:=1 to 100 do
begin
b:=b+a;
end;
write ('Vash resultat =', b);
readln;
<span>END.
</span>
1) a:=10
b:=5
b:=100+10/5 = 102
a:=102/6*5 =102/6=17*5=85
значение переменной а = 85
2) i s(3)
2 3+2*2=7
3 7+2-3=13
4 13+2*4=21
5 21+2*5=31
s=31
3) program n1;
var a:integer;
begin
write('введите число ');
readln (a);
if a>0 then
a:=a*8;
writeln ('a=', a)
end.
4) program n2;
var y,x:integer;
begin
write('введите число x - ');
readln (x);
if x>0 then
y:=x-2 else
if x<0 then
y:=abs(x) else
y:=0;
writeln ('y=', y)
end.
5) program n3;
var s,i:integer;
begin
write('сумма четных чисел в промежутке от 26 до 88 = ');
s := 0;
for i := 26 to 88 do
if i mod 2 = 0 then
s := s + i;
writeln(s);
end.
//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
writeln('массив: ');
var a:=MatrRandom(6,6,-100,100).Println;
write('сумма 1 строки: ',a.Row(0).Sum);
end.