10-20
11-240
12-1
13-(-1)
14-6
Ввод чисел продолжается, пока не введено число 100.
Var
A:integer;
Begin
WriteLn('Введите числа');
Read(A);
While A<>100 do
Begin
Read(A);
End;
WriteLn('Ввод окончен');
End.
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function NOD(a,b:integer):integer;
begin
while b>0 do (a,b):=(b,a mod b);
Result:=a
end;
procedure FracAdd(n1,d1,n2,d2:integer; var n,d:integer);
// сложение дробей n1/d1 + n2/d2 = n/d
begin
(n,d):=(n1*d2+n2*d1,d1*d2);
var k:=NOD(n,d);
if k<>1 then (n,d):=(n div k,d div k)
end;
begin
var (a,b):=ReadInteger2('Введите числитель и знаменатель 1й дроби:');
var (c,d):=ReadInteger2('Введите числитель и знаменатель 2й дроби:');
var m,n:integer;
FracAdd(a,b,c,d,m,n);
if n=1 then Writeln('Сумма=',m)
else Writeln('Сумма=',m,'/',n)
end.
<u>Пример</u>
Введите числитель и знаменатель 1й дроби: 6 15
Введите числитель и знаменатель 2й дроби: 12 300
Сумма=11/25
<u>Замечание:</u> вводить только натуральные числа!
<span>Var
a,i,n,s:integer;
function q (a:integer):integer;
var h,n:integer;
begin
n:=a;
h:=0;
q:=0;
while n>0 do
begin
n:=n div 10;
h:=h+1;
end;
if h = 5 then
begin
n:=a div 10000;
if n=3 then
if a mod 2 = 0 then
q:=1;
end ;
end;
begin
readln(a);
i:=a;
while q(i)<>1 do
begin
writeln('Error');
readln(a);
i:=a;
q(i);
end;
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10;
end;
writeln(s);</span><span> end.</span>