===== PascalABC.NET =====
function GCD(a, b: integer): integer;// НОД
begin
while b <> 0 do
begin
a := a mod b;
Swap(a, b)
end;
Result := a
end;
procedure RedFrac(var a, b: integer);// сокращение дроби
begin
var sgna := Sign(a); // мы должны учитывать знак!
var sgnb := Sign(b); // мы должны учитывать знак!
a := Abs(a);
b := Abs(b);
var d := GCD(a, b);
a := (a div d) * sgna;
b := (b div d) * sgnb
end;
begin
var (p1, q1) :=
ReadInteger2('Дробь 1. Введите числитель и знаменатель:');
var (p2, q2) :=
ReadInteger2('Дробь 2. Введите числитель и знаменатель:');
var p3 := p1 * q1 + p2 * q2;
var q3 := q1 * q2;
RedFrac(p3, q3);
Println(p3, '/', q3)
end.
Var A,i : Longint;
Begin
Readln(A);
For i:=1 to A do If A mod i = 0 then Writeln(i);
end.
I (размер файла) = K (количество пискелей) * i (объем одного пикселяя)
Например если разрешение 1280x720, то K=1280*720
N - Количество цветов, через него можно найти i. N=2^i
Например если черно-белое изображение, т. е. 2 цвета, то N=2^i=2 ⇒ i=1
Если 256 цветов, то N=2^i=256 ⇒ i=8
во первых 1abc нельзя что бы название программы начиналось с цифры
после wiriteln количество денег написать readln(h)
после введите стоимость портфеля должно быть ;
Macedonia, FYR MKD
Population, male 1041429
Population, female 1041731
1041731-1041429 = 302
Республика Македония