program n_1;
var
n, m, k, b, c, d:integer;
begin
read(n,m,k);
if k<3 then writeln('0') else begin
c:= m div 2;
b:= n mod (k-2);
d:= n div (k-2);
if (b<>0) then d:=d+1;
if (d>c) then writeln('0')
else if (n+m) mod k = 0 then writeln((n+m) div k)
else writeln((n+m) div k + 1);
end;
end.
С помощью While. Repeat - это оператор цикла, который сначала делает, а потом думает "а надо ли было?". Цикл с Repeat выполнится всегда хотя бы один раз, даже если аргумент изначально не входит в диапазон.
Ну а If - это вообще не цикл.
//Pascal
//Числа случайные в диапазоне [-10;10]
var
A: array [1..15] of integer;
i: byte;
mult: longint;
begin
mult := 1;
randomize; //В PascalABC.NET можно убрать
for i := 1 to 15 do
begin
A[i] := random(21)-10;
if i mod 2 = 0 then mult := mult * A[i];
write(A[i], ' ');
end;
writeln;
writeln('Произведение элементов на четных местах = ', mult);
readln;
end.
Ну думаю, что первое-это использование моделирования, для определения свойств объекта, который ещё не был создан. а так же получение наилучших выходных параметров объекта по проведению опытов над моделью, нежели над оригиналом изделия, что является экономически выгодным.
ну и второе, это использование моделирования при анализе свойств уже готового изделия, для анализа адёкватности полученных данных.
Проще
Линейное и Стохастическое програмирование
-------------------
А вот еще.. .
<span>Построение компьютерной модели базируется на абстрагировании от конкретной природы явлений или изучаемого объекта-оригинала и состоит из двух этапов - сначала создание качественной, а затем и количественной модели. Компьютерное же моделирование заключается в проведении серии вычислительных экспериментов на компьютере, целью которых является анализ, интерпретация и сопоставление результатов моделирования с реальным поведением изучаемого объекта и, при необходимости, последующее уточнение модели и т. д</span>
Вот) Модуль нужен, чтобы упростить проверку)
var
x, i: integer;
begin
readln(x);
x := abs(x);
for i := 2 to x - 1 do
if x mod i = 0 then
begin
writeln('No');
exit;
end;
writeln('Yes');
end.