<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=Arr('Клиндухова','Кобзарь','козловский','капша','мороз Артем',
'Мороз ИЛья','Павлова','Глухих');
s.Println;
s:=s.OrderBy(t->t.ToUpper).ToArray;
s.Println
end.
Var
a,b:Integer;
Begin
Read(a,b);
if (a>b) then Writeln(b,' ',a)
else Writeln(a,' ',b);
end.
1)
#include <iostream>
using namespace std;
int main()
{
int n = 0;
cin >> n;
for (int i = 0; i < n; ++i) {
cout << 2 * i << endl;
}
return 0;
}
2)
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
int a = 0, b = 0;
cin >> a >> b;
for (int i = a; i <= b; ++i) {
cout << pow(i, 2) << endl;
}
return 0;
}
3)
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
int a = 0, b = 0, sum = 0;
cin >> a >> b;
for (int i = a; i <= b; ++i) {
sum += pow(i, 2);
}
cout << sum << endl;
return 0;
}
Var
a, b: integer;
begin
readln(a);
while (inttostr(a).Length > 1) do
begin
b := 0;
foreach c: char in inttostr(a) do
b += strtoint(c);
a := b;
end;
writeln(b);
<span>end.
=======================
var
a, b, e: integer;
d: string;
begin
readln(a);
d := inttostr(a);
while (length(d) > 1) do
begin
d := inttostr(a);
b := 0;
for e := 1 to length(d) do
b += strtoint(d[e]);
a := b;
end;
writeln(b);
<span>end.</span></span>