Var b,c:real;
<span>begin </span>
<span>b:=1; </span>
<span>c:=2; </span>
<span>repeat </span>
<span>b:=b+1; </span>
<span>c:=c*b; </span>
<span>until b=4; </span>
<span>writeln('Да'); </span>
<span>end. </span>
Var a,b,a1,b1:real;
begin
readln(a,b);
if a = b then writeln('Числа равны')
else
if a>b then begin
a1:=2*a*b; b1:=(a+b)/2;
a:=a1;b:=b1;
writeln('a = ',a,' b = ',b)
end
else begin
b1:=2*a*b; a1:=(a+b)/2;
a:=a1;b:=b1;
writeln('a = ',a,' b = ',b);
end;
end.
1. Перемножаем знаменатели b и d, ставим его в знаменатель результата.
2. Умножаем a на d и c на b.
3. Полученные произведения складываем, сумма будет числителем результата.
4. Находим наибольший общий делитель числителя и знаменателя.
5. Делим на него числитель и знаменатель, сокращая тем самым дробь.
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
function IsPrime(n:integer):boolean;
begin
Result:=Range(2,Round(sqrt(n))).All(i->n mod i<>0)
end;
begin
var n:=9;
var a:=MatrixRandom(n,n,3,15);
var k:=0;
for var i:=0 to n-1 do begin
for var j:=0 to n-1 do begin
Write(a[i,j]:3);
if IsPrime(a[i,j]) then Inc(k)
end;
Writeln
end;
Writeln('Простых чисел: ',k)
end.
<u><em>Тестовое решение:</em></u>
12 15 13 5 8 5 11 14 9
7 7 14 10 5 10 9 12 3
8 8 10 7 12 14 7 6 9
13 13 7 6 4 9 13 10 11
15 4 11 12 11 4 12 8 9
7 6 14 5 10 15 6 7 9
4 7 6 14 13 5 11 13 3
4 4 5 7 12 10 14 9 11
7 12 13 8 10 6 8 3 15
Простых чисел: 32
1)выделить текст
2)нажатием правой кнопкой нажать копировать
3)открыть нужный файл нажать правую кнопку и нажать вставить