Var
x, y, p: Integer;
begin
Writeln('Введите два числа');
Readln(x, y); {вводим два целых числа}
p := x * y;
repeat
if x > y Then x := x Mod y
Else y := y Mod x
until (x = 0) Or (y = 0);
{до тех пор, пока одно из чисел не станет равно нулю}
Writeln('НОK=', p / (x + y)); {вывод НОД - без условного оператора, так как одно из чисел обязательно равно нулю}
end.
#include <iostream>
using namespace std;
int main(){
double a,b;
cin>>a;
cin>>b;
double s=0;
s=(a+b)/100;
cout<<a/s<<"\n"<<b/s;
cin.get();
cin.get();
}<span>
</span>
F=((X*Y)*¬¬X))*(¬(X*Y)*¬¬X)
F=X*Y*X * (¬X+¬Y)*X
F=X*Y*(¬X+¬Y)
F=X*Y*¬X+X*Y*¬Y
F=0
1.
var a,b,i,n,min:integer;
begin
writeln('Input value');
read(a);
min:=a;
for i:= 1 to 2 do begin
writeln('Input value');
read(a);
if min>a then min:=a;
end;
writeln('min = ',min);
<span>end.
2.
var a,b,c:integer;begin
writeln('Input a');
read(a);
writeln('Input b');
read(b);
writeln('Input c');
read(c);
a:=a*b*c;
writeln('prod = ',a);
end.<span>
</span></span>
//первый вариант
var
i, summ:integer;
begin
summ := 0;
for i := 1 to 99 do
if i mod 2 = 1 then
summ := summ + i;
writeln('Сумма нечетных чисел от 1 до 99 равна: ', summ);
end.
//второй вариант
var
i, summ:integer;
begin
summ := 0;
i := 1;
while i < 100 do
begin
summ := summ + i;
i := i + 2;
end;
writeln('Сумма нечетных чисел от 1 до 99 равна: ', summ);
end.