<h2>PascalABC.NET 3.4.2, сборка 1979 (16.02.2019)</h2><h2>Код</h2>
- begin
- var arr := Range(0, ReadInteger).Select(x -> x*x).Println;
- end.
<h2>Вывод</h2>
10
0 1 4 9 16 25 36 49 64 81 100
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var n:=ReadInteger;
var p:=1.0;
for var i:=1 to n do p:=p*i;
write(p);
end.
#include <iostream>
<span>using namespace std;
</span>void mxd(int n) {
<span> int k,mx=0;
</span><span> do {
</span><span> k=n%10; n/=10;
</span><span> if (k>mx) mx=k;
</span><span> }
</span><span> while (n>0);
</span><span> cout<<mx<<endl;
</span><span>}
</span><span>int main() {
</span><span> int n;
</span><span> cout<<"number: "; cin>>n;
</span><span> mxd(n);
</span><span> </span><span /><span>system("pause");
</span><span> return 0;
</span><span>}
</span><span>
</span>
plus=3; //на какое число далее будем прибавлять
start=0; //с какого числа начинаем сложение, и на каком сейчас
stop=33; //где кончаем прибавлять
while(status=true){
if(start<=stop){
//log это команда обрабатывающая результат если надо
function log(res){
start=start+res;
plus=start+res+3;
} // ну как там функции создаются...
log(start+plus);}else{
status=false;}}
P.s это что-то среднее между JS и PHP