Сопоставьте код с результатом* КОД нәтижесі S=0 1) fori in range(4) 4) s=9 S=S+j 2) 5) s=7 for i in range(4): S=S+j s=0 6) s=6 3) for i in range(1,6,2) ): S=S+j MAX 221 *** 4) 5) 6) 1) 2) 3)
// PascalABC.NET 3.0, сборка 1164 от 11.02.2016 function gcd(a,b:integer):integer; // Нахождение НОД var i: longint; begin while b <> 0 do begin a := a mod b; i := b; b := a; a := i end; Result:=a end;
begin var a:=ReadInteger('a='); var b:=ReadInteger('b='); var nod:=gcd(a,b); if nod>1 then WritelnFormat('Дробь сократима: {0}/{1}={2}/{3}', a,b,a div nod,b div nod) else WritelnFormat('Дробь {0}/{1} несократима',a,b) end.
Все довольно просто, мог бы и сам прогнать через ide!) 1) const a: array [1..6] of integer=(1, 7, 3,6,0,10); тут ты инициализируешь массив которые включает 6 элементов такие как: (1, 7, 3,6,0,10) 2) после ты по циклу начинаешь складывать все элементы массива, которые описаны выше - for i:=1 to 6 do s:=s+a[i]; т.е. 1+7+3+6+0+10 3) далее ты делишь сумму на 6 и присваиваешь результат переменной sr - sr:=s/6; 4) после этого пытаешься вывести значение переменной sr - writeln(‘sr=’, sr);
ответ будет 4.5, но твоя программа не выполниться, т.к. 4.5 это дробное число, а у тебя на переменную sr стоит тип integer, для того, чтобы программа отработала и вывело ответ, сделай тип переменной sr: real и тогда у тебя все получиться =)
Если есть вопросы, то пиши
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку