<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>№1</u>
begin
var a:=ReadInteger.ToString;
Writeln(a=a.Inverse)
end.
<u>Примеры</u>
2441
False
1991
True
<u>№2</u>
begin
var n:=int64(ReadInteger);
var s:=n.ToString;
var s2:=(n*n).ToString;
if s2.Right(s.Length)=s then Writeln('Афтоморф')
else Writeln('Не автоморф')
end.
<u>Примеры</u>
625
Афтоморф
1020
Не автоморф
using System;
class HelloWorld {
static void Main() {
int s = 0;
for (int i = 50; i <= 100; i++)
if(i % 6 == 0)
s += i;
Console.WriteLine(s);
}
}
const
N = 50;
var
a:array[1..N] of integer;
b:array[1..N] of real;
i:integer;
begin
randomize;
for i := 1 to N do
begin
a[i]:=100-random(201);
b[i]:=sqr(a[i])/(i+a[i]);
writeln('a[',i,']=',a[i],'; b[',i,']=',b[i]:5:3);
end;
end.
Для врача исходной информацией может быть выписка справки, отдача результатов анализов пациенту, выписка лекарств.
Для регулировщика исходная информация является его движения руками(жесты), с помощью их он доводит информацию до водителей.