<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
n:=n.ToString.Inverse.ToInteger;
n.Println
end.
<u>Примеры</u>
n= 42061
16024
n= 53020
2035
Php script
<?phpif (isset($_GET['a'])) $string_a=htmlentities($_GET['a']);if (isset($_GET['b'])) $string_b=htmlentities($_GET['b']); $isEmpty=false;if ((empty($string_a))&&(empty($string_b))) $isEmpty=true; if ($isEmpty==false){ $a = (int)$string_a; $b = (int)$string_b; $c = $a+$b;}else{ $a = 1; $b = 1;}?><!DOCTYPE html><html lang="ru"> <head> <meta charset="UTF-8" /> <meta http-equiv="X-UA-Compatible" content="IE=edge,chrome=1"> <meta name="viewport" content="width=device-width, initial-scale=1.0"> <title>Программа сложения двух чисел</title> </head> <body> <form action="index.php"> <input name="a" type="text" value=<span>"<?php echo $a;?>"</span>><br> <input name="b" type="text" value=<span>"<?php echo $b;?>"</span>><br> <input type="submit" value="Сложить два числа"><br> </form><?phpif ($isEmpty==false){ echo $a." + ".$b." = ".$c;}?> </body></html<span>></span>
5125б, 5кбайт, 925кбайт, 1 мб, 12 мб
Можешь чекнуть таблицу содержащию виды памяти
var a:array[0..9] of integer;
i,min,max:integer;
begin
for i:=0 to 9 do readln(a[i]);
min:=a[0];
for i:=0 to 9 do if(min>a[i]) then min:=a[i];
max:=a[0];
for i:=0 to 9 do if(max<a[i]) then max:=a[i];
writeln(max,' ', min);
readln;
end.
пусть на корабле икс кошек, тогда четырнадцать минус икс и умноженное на два равно количеству ног людей (не считая капитана), а икс умноженное на четыре равно количеству лап у кошек. сумма лап и ног равна сорока(капитан одноног), отсюда находим, что икс равен шести.