var a, b, c:real;
begin
writeln('введите два числа');
readln(a,b);
c:=a+b;
if a> b then c:=a-b;
writeln(c:7:2);
end.
{2 способ}
var a, b, c:real;
begin
writeln('введите два числа');
readln(a,b);
if a> b then c:=a-b
else c:=a+b;
writeln(c:7:2);
end.
Если из двоичной, то 4435=59
из восьмеричной 4435=2333
из шестнадцатеричной 4435 = 17461
Ответ:#include <bits/stdc++.h>
using namespace std;
int main() {
const int x = 3, y = 4;
int N[x], M[y] = { 0, 0, 0, 0 };
int r = 0;
do {
r = 0;
for (int q = 0; q < x; q++) {
N[q] = getchar() - 48;
if (N[q] == -38) q--;
if (N[q] == 0) r++;
}
switch (N[0]) {
case 1: M[N[1]] = N[2]; break;
case 2: M[N[2]] = M[N[1]]; break;
case 3: M[N[2]] = M[N[2]] + M[N[1]]; break;
case 4: M[N[2]] = M[N[2]] - M[N[1]]; break;
}
for (int e = 0; e < y; e++) {
cout << "R" << e << " = " << M[e] << "\n";
}
} while (r != x);
return 0;
}
Объяснение:
Uses crt;
var
a,b,c,d,e,f:real;
begin
writeln('Введите числа c и d');
readln(c,d);
writeln('Введите числа a и b');
readln(a,b);
if (c:=a * a) then begin
writeln('Число a является квадратом c');
else
writeln('Число a не является квадратом c');
end;
if (d:=b * b * b) then begin
writeln('Число d является кубом b');
else
writeln('Число d не является кубом b');
end;
End.
var k,p,d:real;i:integer;begin
write('Write kol:');readln(k);
write('Write percent:');readln(p);
for i:=1 to 50 do
d:=k/(1+(p/100)*i);
writeln(d:0:2);
end.
Код может быть неточен так как нет данных для проверки.
