М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
anuta136
anuta136
25.03.2023 03:55 •  Информатика

Решите на языке pascal, применяя цикл с предусловием дано целое положительное число n. найти наименьшее целое положительное число k, квадрат которого превосходит n. функцию извлечения квадратного корня не использовать.

👇
Ответ:
Yulduzka28
Yulduzka28
25.03.2023
Program n1;
var n,k,i: integer;
begin
write('Введите n: ');
readln(n);
k:=0;
while k*k<n+1 do k:=k+1;
writeln(k);
end.
4,6(57 оценок)
Ответ:
isaevaa24
isaevaa24
25.03.2023
Var lf,rt,n,k: integer;
begin
  write('N = ');  readln(n);
  lf:=1;  rt:=n;
  while (lf+1<rt) do
  begin
    k:=(lf+rt) shr 1;
    if k*k>n then rt:=k
    else lf:=k;
  end;
  writeln('k = ',rt);
end.

Ввод - вывод

N = 139847
k = 374
4,8(40 оценок)
Открыть все ответы
Ответ:
Belcard
Belcard
25.03.2023
1.Какое устройство компьютера моделирует мышление человека?
-Процессор

2.Действия над исходной информацией (фактами) в соответствии с некоторыми правилами - это
-обработка информации

3.Из предложенных сообщений выбрать правило
-при умножении простых дробей их числители и знаменатели перемножаются

4.Для кого, вероятнее всего, будет информативным следующее сообщение: «Программа - это алгоритм, записанный на языке программирования»?
-начинающий программист

5.Где хранится выполняемая в данный момент программа и обрабатываемые ею данные?
-в оперативной памяти

6.Какое устройство компьютера осуществляет процесс дискретизации звука?
-звуковая карта

7.Информативность сообщения, принимаемого человеком, определяется
-наличием новых знаний и понятностью

8.Вместо многоточий вставьте соответствующие понятия: «Каталог содержит информацию о ..., хранящихся в...»
A) файлах, внешней памяти

9.Указать команду(ы), при выполнении которой(ых) выделенный фрагмент попадает в буфер обмена
В) вырезать и копировать

10.Какие из перечисленных действий относятся к форматированию текста?
-установка режима выравнивания

11.В прикладное программное обеспечение входят:
В) текстовые редакторы

12.Операционная система - это
-комплекс программ, организующих управление работой компьютера и его взаимодействие с пользователем

13.Предложены команды
5Сделать диск А текущим.
2Создать каталог TOWN
3Создать каталог STREET
1Создать файл Home.txt
4Войти в созданный каталог
Расположить пронумерованные команды так, чтобы был получен алгоритм, с которого на пустой дискете создается файл с полным именем A:\TOWN\STREET\Home.txt
Б) 5,2,3,1

14.Для хранения текста требуется 84000 бита. Сколько страниц займет этот текст, если на странице размещается 30 строк по 70 символов в строке? Для кодирования текста используется таблица кодировки, состоящая из 256 символов.
84000/(log(256)/log(2))/30/70 = 5

15.Книга состоит из 64 страниц. На каждой странице 256 символов. Какой объем информации содержится в книге, если используется алфавит из 32 символов?
А) 81920 байтов Б) 40 Кбайт В)10 Кбайт Г) 16 Кбайт Д) 64 Кбайт
64*256*(log(32)/log(2)) /8/1024 = 10

16.Сколько символов содержит сообщение, записанное с символьного алфавита, если его объем составил 1/16 часть Мегабайта?
(1/16)*1024*1024*8/(log(16)/log(2)) = 131072

17.Сколько памяти занимает графическое изображение, если его размер 40x60 и для кодирования цвета пикселя используется двоичный код из 32-х битов.
А) 2400 байтов  Б) 2100 байтов  В) 960 байтов Г) 9600 байтов    Д) 12000 байтов
40*60*32/8 = 9600

18.Текст занимает 0,25 Кбайт памяти. Сколько символов содержит этот текст, если используется таблица кодировки, состоящая из 256 символов?
0.25*1024*8/(log(256)/log(2)) = 256

19.Сколько битов информации содержится в сообщении объемом четверть Килобайта?
1/4*1024*8 = 2048
4,5(96 оценок)
Ответ:
Красотка794
Красотка794
25.03.2023
1. Программа, создающая тестовый файл.

// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
  var f: file of integer;
  var t:integer;
  Assign(f,'input.dat'); Rewrite(f);
  for var j:=1 to 5 do begin
    for var i:=1 to 10 do begin t:=Random(10,99); Write(f,t) end;
    for var i:=1 to 10 do begin t:=-Random(10,99); Write(f,t) end
    end;
  f.Close;
end.

2. Программа, которую требовалось написать

// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
  var f,g: file of integer;
  var a:=new integer[20];
  var t:integer;
  Assign(f,'input.dat'); Reset(f);
  Assign(g,'output.dat'); Rewrite(g);
  while not f.Eof do begin
    for var i:=0 to 19 do Read(f,a[i]);
    a:=a[10:15]+a[0:5]+a[15:20]+a[5:10];
    for var i:=0 to 19 do Write(g,a[i])
    end;
  f.Close;
  g.Seek(0);
  while not g.Eof do begin Read(g,t); Print(t) end;
  g.Close
end.
4,8(77 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ