Program gt; var a,b,i: ineteger; begin readln(a,b); for i: =a+1 to b-1 do writeln(i,' ',sqrt(i)); end.
ars-trushakova
05.09.2021
1) z = 0 считаем количество нечётных элементов массива15 (нечётное) z = 1 17 (нечётное) z = 2 24 (чётное) z = 2 18 (чётное) z = 2 13 (нечётное) z = 3 28 (чётное) z = 3 18 (чётное) z = 3 95 (нечётное) z = 4 19 (нечётное) z = 5 17 (нечётное) z = 6 ответ: 62) s = 24 (первому элементу массива)сравниваем со следующими элементами массива, если элемент больше s присваиваем s значение большего элемента7 > 24 (нет)14 > 24 (нет) 8 > 24 (нет) 56 > 24 (да) s = 56 12 > 56 (нет) 48 > 56 (нет) 25 > 56 (нет) 19 > 56 (нет) 17 > 56 (нет) ответ: 56
Александра Викторович531
05.09.2021
Const nx =0; var s,i,j,z,n: integer; a,b: array[1..nx] of integer; begin writeln('ввести конец интервала n'); n: = readinteger(); for i: =1 to n do begin write(i: 3); if i mod 4 = 0 then begin z : = z +1; a[i]: =i; end; if i mod 3 = 0 then begin s : = s +1; b[i]: =i; end; end; writeln; writeln('кратных 4 ',z,a); write('кратных 3 ',s,b); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Вдиапазоне от a до b вычислить квадратные корни всех целых чисел.паскаль.