<span>a = int(input())
Max = a
n = <span>0
</span>while a != 0:
if a > Max:
Max = a
n = <span>1
</span> elif a == Max:
n += <span>1
</span> a = int(input())
print(n, ' - ', Max)</span>
<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)</span>
1)
begin
var (x1,y1):=ReadInteger2('x1,y1=');
var (x2,y2):=ReadInteger2('x2,y2=');
WritelnFormat('Центр ({0};{1})',(x1+x2)/2,(y1+y2)/2);
end.
Пример:
x1,y1= 1 2
x2,y2= -1 2
Центр(0;2)
2)
begin
ReadArrString(4).JoinIntoString(' ').Println;
end.
Пример:
Информатика это
интересный предмет,
но многие
не хотят её учить.
Информатика это интересный предмет, но многие не хотят её учить.
2, 3, 5, 8, 13, 21, 34, 55, 89
<em>// PascalABC.NET 3.2, сборка 1485 от 15.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function GCD(a,b:integer):integer;
begin
while b<>0 do begin a:=a mod b; Swap(a,b) end;
Result:=a
end;
procedure TruncFrac(var a,b:integer);
begin
var z:=a*b<0?-1:1;
(a,b):=(Abs(a),Abs(b));
var k:=GCD(a,b);
(a,b):=((a div k)*z,b div k)
end;
procedure Print(a,b:integer);
begin
if b=1 then Write(a)
else begin
if Abs(a)>b then begin
Writeln(a div b,' ',Abs(a) mod b,'/',b)
end
else begin
if a<0 then begin Write('-'); a:=-a end;
Writeln(a,'/',b)
end
end
end;
begin
Write('Введите числитель и знаменатель дроби: ');
var (p,q):=ReadInteger2;
if p=0 then Writeln(0)
else if q=0 then Writeln('Знаменатель не может быть нулем')
else begin TruncFrac(p,q); Print(p,q) end
end.
<u>Примеры</u>
Введите числитель и знаменатель дроби: -156 70
-2 8/35
Введите числитель и знаменатель дроби: 1024 64
16
Введите числитель и знаменатель дроби: -158 42
-3 16/21
Введите числитель и знаменатель дроби: 356238 -3652
-97 997/1826
Введите числитель и знаменатель дроби: -150 -70
2 1/7
Введите числитель и знаменатель дроби: 12 0
Знаменатель не может быть нулем
Здесь показано куда сохранять фильм
http://yadi.sk/d/WIpiQW9zLLsA7
Здесь показано при выборе фильма куда загружать
http://yadi.sk/d/dFJrCH9sLLsLd
Или если это все не помогло смотри настройки куда сохранялся фильм и перемещай его на рабочий стол
