using System;
internal class Program {
private static void Main() {
Console.WriteLine("Введите минимум для счетчика");
var min = int.Parse(Console.ReadLine() ?? throw new ());
Console.WriteLine("Введите максимум для счетчика");
var max = int.Parse(Console.ReadLine() ?? throw new ());
Console.WriteLine("Введите значение для счетчика");
var v = int.Parse(Console.ReadLine() ?? throw new ());
var counter = new Counter(max, min, v);
Console.WriteLine("Введите + для увеличение и - для уменьшения, иное для выхода");
do {
var c = Console.ReadKey();
if (c.KeyChar == '+') counter.Increase();
else if (c.KeyChar == '-') counter.Decrease();
else break;
Console.WriteLine($" => {counter.Value}");
} while (true);
Console.ReadKey();
}
}
public class Counter {
public readonly int Maximum;
public readonly int Minimum;
public int Value { private set; get; }
public Counter(int maximum, int minimum, int counter) {
this.Maximum = maximum;
this.Minimum = minimum;
counter = Math.Min(this.Maximum, counter);
counter = Math.Max(this.Minimum, counter);
this.Value = counter;
}
private Counter() {
this.Maximum = 10;
this.Minimum = 0;
this.Value = 5;
}
public void Increase() {
var value = this.Value + 1;
if (value > this.Maximum || value < this.Minimum)
return;
this.Value++;
}
public void Decrease() {
var value = this.Value - 1;
if (value > this.Maximum || value < this.Minimum)
return;
this.Value--;
}
}
var j, a, b, n: integer;
label 1;
begin
1: randomize;
a: = random (9);
b: = random (9);
write (a, '*', b, '=');
read (n);
if n = (a * b) then writeln ('відповідь вірний! ')
else writeln ('відповідь неправильний! ');
writeln ('продовжуватимеш? ');
writeln ('якщо так то натисни 1');
writeln ('якщо немає то натисни 2');
read (j);
if j = 1 then goto 1;
if j = 2 then writeln ('до побачення! ');
end.
начебто так, точно не пам'ятаю.
Если не математическим, а программным образом, то примерно так
A2(), А3(), А4(),А5() это массивы, в которых сохраним эти числа
ц2=0;
ц3=0;
ц4=0;
ц5=0; // это их индексы
Для ц=100 до 999 Цикл
Если Остаток(ц+1,2)=0 Тогда
ц2=ц2+1;
А2(ц2)=ц;
КонецЕсли;
Если Остаток(ц+2,3)=0 Тогда
ц3=ц3+1;
А3(ц3)=ц;
КонецЕсли;
Если Остаток(ц+3,4)=0 Тогда
ц4=ц4+1;
А4(ц4)=ц;
КонецЕсли;
Если Остаток(ц+4,5)=0 Тогда
ц5=ц5+1;
А5(ц5)=ц;
КонецЕсли;
КонецЦикла;
// Теперь их напечатаем
Сообщить("При увеличении на 1 делятся на 2");
Для ц=1 по ц2 Цикл
Сообщить(А2(ц));
КонецЦикла;
Сообщить("При увеличении на 2 делятся на 3");
Для ц=1 по ц3 Цикл
Сообщить(А3(ц));
КонецЦикла;
Сообщить("При увеличении на 3 делятся на 4");
Для ц=1 по ц4 Цикл
Сообщить(А4(ц));
КонецЦикла;
Сообщить("При увеличении на 3 делятся на 4");
Для ц=1 по ц4 Цикл
Сообщить(А4(ц));
КонецЦикла;
Сообщить("При увеличении на 4 делятся на 5");
Для ц=1 по ц5 Цикл
Сообщить(А5(ц));
КонецЦикла;
Ну вот, где-то так.
Но если математически, то нужно по-другому, и информатика здесь совершенно ни при чём, скорее теория чисел.
Да, в условии не сказано, что ОДНОВРЕМЕННО, поэтому я решал задачу "не одновременно"
Если одновременно, то ещё проще, всего одно условие со сложным условием и можно без массивов.
Ну и ещё: использована функция Остаток(), она есть в любом языке. Если нет(??!), то легко пишется вручную.