olga15038
09.10.2020 08:37

Написать программу на paskal(lazarus)
написать программу нахождения корня уравнения методом простых итераций и методом половинного деления. нужно написать программу без функций. )

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
математика634
13.02.2022 15:01

Ctrl+S= Сохранение рисунка.

Shift - При перетаскивании фигуры получится копирование узора со следом.

Ctrl - Копирование узора.

Объяснение:

Смотри. Если зайти в Paint и сделать любую линию, выделить её и кликнуть на "Прозрачное выделение", и на данный момент нажать на Shift, полетит фигня чёрная, которая будет со следом. Узор скопируется, но со следом. Если так провернуть с Ctrl, то просто скопируется узор без дополнительный линий. А Ctrl+S можешь проверить сам. Тут уже итак понятно, почему сохранение.

0,0(0 оценок)
Ответ:
Dimasik3310
30.06.2022 23:25

алгоритм далек от совершенства, медленный, но считает правильно. Паскаль

Объяснение:

var

 col: integer;

 i, k: longint;

 del: boolean;

function prost(a: longint): boolean;

var c: integer;

begin

 prost := a >= 2;

 for c := 2 to trunc(sqrt(a)) do if a mod c = 0 then prost := false;

end;

begin

 i := 2;

 col := 1;

 repeat

   del := (i mod 2 = 0) or (i mod 3 = 0) or (i mod 5 = 0);

   for k := 6 to i div 2 do if (prost(k) = true) and (i mod k = 0) then del := false;

   if del then

   begin

    Write(i, ', ');

    inc(col);

   end;

   inc(i);

 until col > 1000;

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота