Сергеевна-Иван1045
?>

Вдиапазоне от a до b вычислить квадратные корни всех целых чисел.паскаль.

Информатика

Ответы

vsbrelok
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
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
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 вычислить квадратные корни всех целых чисел.паскаль.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

karkh267
vantoslaltd
klimovala2
Tkachenko1050
Аношкина1696
Стуканова УЧРЕЖДЕНИЕ1877
mlf26
satinvova
Лилия-Карпухина337
Melnik Kaveshnikova1746
rinata542
Tatyana1426
ВасильевнаСергей
Матвеев
buff-studio