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

По паскалю program prostoe; var a, b, i, v: longint; begin b : = 0; writeln('введите число'); readln(a); for v : = 2 to a do begin for i : = 2 to v - 1 do begin if v mod i = 0 then b : = 1 else b : = b; end; if b = 0 then writeln(v, ' является простым') else writeln(v, ' не является простым'); b : = 0; end; end. эта программа находит все простые числа от 2 до числа которое мы ввели, нужно чтобы она как только нашла первый делитель числа не проверяла остальные.

👇
Ответ:
наука28
наука28
01.09.2020
If v mod i = 0 then b := 1 else b := b; эту строчку замени этой:
if v mod i = 0 then begin b := 1; break; end else b := b;

Оператор break прерывает цикл и на выполнение идет следующий оператор за циклом.
4,4(2 оценок)
Открыть все ответы
Ответ:
kataysinkevich
kataysinkevich
01.09.2020

1.Открыть правой рукой хлебницу; __2.Взять булку хлеба правой рукой; __3.Положить хлеб на разделочную доску; (предположим, что доска уже лежала на столе) __4.Открыть правой рукой верхний ящик стола; __5.Найти блестящий нож, длиной 20 см, с черной ручкой; __6.Взять нож в правую руку; __7.Поднести нож к хлебу; __8.Зафиксировать хлеб левой рукой, взявшись за левый край булки; __9.Расположить нож строго над правым ребром булки хлеба; __10.Повторять следующие действия 5 раз: 10.1.Отступить влево на сантиметр; 10.2.Повторять следующие действия, пока лезвие ножа не не коснется доски: 10.2.1.Прижать нож к хлебу; 10.2.2.Совершить ножом возвратно поступательное движение вперед-назад; 10.3.Поднять нож вверх; __11.Положить нож в ящик; __12.Отпустить левой рукой хлеб.

Объяснение:

Запускаем программу и смотрим, как она работает: Ой... вместе с пятым куском и палец отрезал... чёрт! остановить программу! Я же не написал как именно нужно зафиксировать хлеб левой рукой, схватился как попало и большой палец торчал в сторону... Возвращаемся к строчке "Зафиксировать хлеб левой рукой, взявшись за левый край булки;" После нее пишем: "Поджать большой палец левой руки влево, к ладони;" Запускаем программу Ой... на строчке "Положить нож в ящик;" нож упал на пол... Проклятье! оказывается, стол стоит немного под наклоном и ящик сам закрылся... Возвращаемся к коду и перед строчкой "Положить нож в ящик;" пишем "Открыть правой рукой верхний ящик стола;" Заметили ошибку? Нет?! Как мы можем открыть ящик правой рукой, если в этой руке нож? Значит, сначала нужно положить нож на стол, потом открыть ящик, снова взять нож и т.д. И делаем мы это до тех пор, пока хлеб не будет нарезан как следует, без повреждения мебели и пальцев. Вот, примерно так происходит отладка С опытом начинаешь писать программы, которые работают с первого раза, допуская минимум ошибок, а проверка "открыт ли ящик", перед складыванием в него чего-то, входит в привычку. Когда какие-то операции совершаются постоянно, такие как нарезка хлеба, мойка посуды и т.д., то программисты их описывают в виде процедур. Процедура - набор определенных действий, спрятанный под одной командой. Таким образом, текст программы, который я приводил выше, можно поместить в процедуру под названием НарезатьХлеба(параметр), где в качестве параметра будем указывать количество кусков

4,8(51 оценок)
Ответ:
KsenyaKnyazeva1
KsenyaKnyazeva1
01.09.2020

znanija

Поиск...

Избавься от ограничений

ПОПРОБУЙ ЗНАНИЯ ПЛЮС СЕГОДНЯ

User avatar

Nastyukha0

10.02.2015

Информатика

5 - 9 классы

ответ дан • проверенный экспертом

заполнить массив состоящий из 10 элементов случайными целыми числами из промежутка [-50;50]. Выведите на экран и вычислите сумму всех отрицательных элементов. Как в программе паскаль. Заранее огромное с:

1

СМОТРЕТЬ ОТВЕТ

Что означает фраза "КАК в программе паскаль" ?:

И потом, "Выведите на экран и вычислите сумму" - это не по-русски, потому что сначала надо вычислить, а затем вывести.

Войди чтобы добавить комментарий

Реклама

ответ, проверенный экспертом

5,0/5

3

Участник Знаний

const

n = 10;

var

x: array[1..n] of integer;

i, s: integer;

begin

Randomize;

Writeln('Элементы массива');

s := 0;

for i := 1 to n do

begin

x[i] := Random(101) - 50;

Write(x[i]:4);

if x[i] < 0 then s := s + x[i]

end;

Writeln;

Writeln('Сумма отрицательных элементов равна ', s);

end.

4,6(98 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ