• 18 March 2017
    • Українська література
    • Автор: Nami2001play

    Решите задачу на языке Pascal, применяя цикл с предусловием
    Дано целое положительное число N. Найти наименьшее целое положительное число K, квадрат которого превосходит N. Функцию извлечения квадратного корня не использовать.

    • Ответ оставил: Мненужнпомошь
    Var lf,rt,n,k: integer;begin  write('N = ');  readln(n);  lf:=1;  rt:=n;  while (lf+1n then rt:=k    else lf:=k;  end;  w...
    • Ответ оставил: Мненужнпомошь
    Program n1;var n,k,i: integer;beginwrite('Введите n: ');readln(n);k:=0;while k*k
    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предметы...

Последние опубликованные вопросы