2010,0102=2,0100102Е+3=20,100102Е+2=0,20100102Е+4=20100102Е-4=201001,02Е-2
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var a,b:integer; Read(a,b);
Writeln(max(a,b) mod min(a,b))
end.
Правда, не пойму, зачем ограничиваться числом 100?
<html>
<body>
<script type="text/javascript">
a = prompt("Введите первое число");
b = prompt("Введите второе число");
c=a*b;
alert("Произведение чисел: "+c);
</script>
</body>
<span></html></span>
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50); a.Println;
var s:=a.Where(t->t.IsEven); s.Println; Writeln('Кол-во = ',s.Count);
s:=a.Where(t->t.IsOdd).Reverse; s.Println; Writeln('Кол-во = ',s.Count);
var imax:=a.IndexMax;
Writeln('Номер максимального элемента- ',imax+1,
', его значение- ',a[imax])
end.
<u>Пример</u>
n= 15
-39 29 23 4 -26 41 23 -9 10 49 -24 39 -28 19 15
4 -26 10 -24 -28
Кол-во = 5
15 19 39 49 -9 23 41 23 29 -39
Кол-во = 10
Номер максимального элемента- 10, его значение- 49
a=100
b=30
a=100-b*3(100-90)
(a=10)
a не больше b следовательно
c=b-a
c=30-10
c=20