Program primer;
var y, x: real;
begin
x:=1;
repeat
y:=x*x-16*x+32;
write(y)
x:=x+0.25;
until x < 10;
readln;
end.
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>1. Современное решение</u>
begin
var (a,b,c):=ReadReal3;
if (a>b) and (b>c) then else (a,b,c):=(a*a,b*b,c*c);
Println(a,b,c)
end.
<u>Пример</u>
15.8 4.9 13
249.64 24.01 169
<u>2. А так, увы, все еще учат писать во многих школах...</u>
program Toska;
var
a,b,c:real;
begin
Read(a,b,c);
if not ((a>b) and (b>c)) then begin
a:=a*a; b:=b*b; c:=c*c
end;
Writeln(a,' ',b,' ',c)
end.
#include <iostream>
using namespace std;
int main()
{
int number;
cin >> number;
cout << number % 10 << ' ' << number / 10 % 10;
return 0;
}
Ответ : 58 в десятичной системе.
Объяснение :
58(10)=3А(16)=213(5).
58/16=3-остаток 10, т.е. оканчивается на А в шестнадцатиричной системе.
58/5=11- остаток 3, оканчивается на 3 в пятеричной системе.