Var
max, min, prev_min, n: integer;
begin
max := -10000;
min := 10000;
prev_min := 10000;
repeat
read(n);
if n > max then begin
max := n;
end;
if n < min then begin
prev_min := min;
min := n;
end;
until n = 0;
writeln(max, ' ', prev_min);
end.
3. Спрайт идет 10 шагов и если край, то отталкивается.4. Спрайт ходит всегда с указателем мышки5. Спрайт ходит всегда с указателем мышки, и говорит привет в течении 2 секунд6. Спрайт ходит всегда с указателем мышки, и будет говорить привет
var d, m:integer;
var h:real;
begin
readln(d);
m := d * 2;
h := m / 60;
m := m mod 60;
write('Количество часов = ' + Int(h) + ' количество минут = '+ m)
end.
<span> using System;
using System.Numerics;
public class Test
{
public static void Main()
{
int a=int.Parse(Console.ReadLine());
int b=int.Parse(Console.ReadLine());
BigInteger p=1;
for (int i=a; i<=b; i++) { p=p*i; }
Console.WriteLine(p);
}
}</span>
<u>Поток ввода stdin:</u>
13
57
<u>Выходной поток stdout:</u>
84607064997021339293398188869165201400121387478093188300800000000000