Uses Crt;
procedure MinMax(a,b:integer; var min,max:integer);
begin
if a>b then begin max:=a; min:=b end
else begin max:=b; min:=a end
end;
var
x,y,mx,mn:integer;
begin
ClrScr;
Write('a,b= '); Read(x,y);
MinMax(x,y,mn,mx);
Writeln('min=',mn,', max=',mx);
ReadKey
end.
<em><u>Тестовое решение:</u></em>
a,b= 163 97
min=97, max=163
я прикрепил файл.если что то не понятно говорите
Если нужно от 15 до 2 :
Var i:integer
Begin
i:=2
while i<=15 do begin
write(i**3,' ')
end;
end.
P.S. Если нужно от 2 до 15 :
Var a,i:integer
Begin
for i:=2 to 15 do
begin
write(i**3,' ')
end;
end.
Лови ответ, я проверил, всё правильно:
#include <iostream>
using namespace std;
int main() {
int x, n;
int res = 0;
cout << "Введите два числа: ";
cin >> x >> n;
for (int i = 1; i <= x; i++)
res += n;
cout << endl << x << " * " << n << " = " << res << endl;
return 0;
}