Паскаль 1. нпк вводит 2 числа (a 2. нпк вводит числа до тех пор пока не будет введено число 0, после этого выводит сумму введенных числе

👇

Ответ:

Leraekb2012

09.04.2021

Program sum;
var
a,b,s: integer;
begin
s := 0;
loop do
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
s := s + (a + b);
if (a = 0) or (b = 0) then
begin
break;
writeln('s = ', s);
end;
end;
end.

4,5(38 оценок)

Открыть все ответы

Ответ:

MrDackes

09.04.2021

1. Вот так это пишется с функцией

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
function IsPrime(n:integer):boolean;
begin
if n<4 then Result:=True
else begin
    var found:= (n mod 2 = 0);
    var p:=3;
    while (not found) and (sqr(p)<=n) do
      begin
      found:=(n mod p = 0);
      p+=2
      end;
    Result:=not found
    end
end;

begin
Writeln('k=',ArrRandom(ReadInteger('n='),1,999).Println.
    Where(x->IsPrime(x)).Count)
end.

Тестовое решение:
n= 10
401 828 780 444 694 965 23 341 673 875
k=3

2. А вот так это пишется с процедурой

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
procedure IsPrime(n:integer; var res:boolean);
begin
if n<4 then res:=True
else begin
    var found:= (n mod 2 = 0);
    var p:=3;
    while (not found) and (sqr(p)<=n) do
      begin
      found:=(n mod p = 0);
      p+=2
      end;
    res:=not found
    end
end;

begin
var a:=ArrRandom(ReadInteger('n='),1,999); a.Println;
var k:=0;
var prime:boolean;
foreach var e in a do begin
    IsPrime(e,prime);
    if Prime then Inc(k)
    end;
Writeln('k=',k)
end.

Тестовое решение:
n= 12
199 43 71 365 417 904 170 212 694 103 161 689
k=4

4,8(69 оценок)

Ответ:

Annala1

09.04.2021

новые версии

Создание блок-схемы

Запустите Visio.

Выберите категорию Блок-схема.

Дважды щелкните значок блок-схема.

Для каждого этапа документируемого процесса перетащите в документ соответствующую фигуру блок-схемы.

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

Чтобы добавить текст для фигуры или соединительной линии, выделите ее и введите текст. По завершении ввода текста щелкните в пустой области страницы.

Чтобы изменить направление стрелки соединительной линии, выберите соединение, а затем на вкладке Фигура в группе Стили фигур щелкните пункт Линия, наведите указатель на пункт Стрелки и выберите нужное направление и вид стрелки.

Автоматическое выравнивание и интервалы

Нажмите сочетание клавиш CTRL+A, чтобы выбрать все объекты на странице.

На вкладке Главная в группе Упорядочение нажмите кнопку Положение и выберите пункт Автовыравнивание и определение интервалов.

Если это не привело к нужному результату, отмените ее, нажав сочетание клавиш CTRL+Z, и воспользуйтесь другими параметрами меню кнопок Выравнивание и Положение.

Пример блок-схемы, представляющей процесс предложения

Что представляют блок-схемы

При открытии шаблона блок-схема открывается набор элементов Фигуры блок-схемы. Каждая фигура в этом наборе представляет собой тот или иной этап процесса. Но фигуры не имеют какого-то универсального смысла, их значение определяется создателями и пользователями блок-схем. В большинстве блок-схем используется три или четыре вида фигур, и этот диапазон расширяется только по специфической необходимости.

При этом названия фигур в Visio указывают на их применение. Ниже описаны наиболее рас фигуры.

Начало/конец. Эту фигуру следует использовать для представления первого и последнего этапа процесса.

Фигура "Начало/Завершение"

Процесс. Фигура представляет собой стандартный этап процесса. Это одна из наиболее часто используемых фигур в любом процессе.

Фигура "Процесс"

Решение. Эта фигура используется в точке, где выбор следующего этапа зависит от принятого решения. Вариантов может быть несколько, но чаще всего их два: "да" и "нет".

Фигура "Решение"

Подпроцесс. Эту фигуру следует использовать для представления ряда этапов, которые в совокупности образуют подпроцесс, определенный в другом месте (часто на другой странице того же документа). Такой подход удобен, если блок-схема получается слишком большой и сложной.

Фигура "Заранее определенный процесс"

Документ. Эта фигура представляет этап, на котором создается документ.

Фигура "Документ"

Данные. Эта фигура указывает, что данные поступают в процесс или покидают его. Также эта фигура может представлять материалы. Иногда ее называют фигурой "Ввод/Вывод".

Фигура "Данные"

Ссылка на текущую страницу. Маленький круг показывает, что следующий (предыдущий) этап находится в другом месте документа. Эта фигура особенно полезна на больших блок-схемах, где в противном случае пришлось бы использовать длинный соединитель, который сложно отследить.

Фигура "Ссылка на текущую страницу"

Ссылка на другую страницу. При размещении этой фигуры на странице открывается диалоговое окно, в котором можно создать набор гиперссылок между двумя страницами блок-схемы или между фигурой "Подпроцесс" и отдельной страницей блок-схемы, на которой показаны этапы этого подпроцесса.

Фигура "Ссылка на другую страницу"

4,7(56 оценок)

Это интересно:

Кулинария-и-гостеприимство

02.01.2021

Как устроить первоклассную вечеринку...

Дом-и-сад

04.01.2022

Солнечная энергия: идеальное решение для подогрева бассейна...

Компьютеры-и-электроника

30.11.2021

Apple Macintosh или другие ПК: как определиться с выбором...