begin
var (m, p) := ReadInteger2('Укажите число и показатель степени:');
if p = 0 then
Write(1)
else
begin
var z := Sign(p);
p := Abs(p);
var r: int64 := m;
for var i := 2 to p do
r *= m;
if z > 0 then
Write(r)
else
Write(1 / r);
end;
end.
==PascalABC.NET==
Program raf105;
var
s: string;
c,i: integer;
begin
write('Введите фразу: ');
readln(s);
for i:=1 to length(s) do
if s[i] = 'o'
then c:= c+1;
writeln('Количество символов "o" в ведённой фразе: ',c);
end.
<h3><u>PascalABC 3.4.2</u></h3>
Ну давайте разберём по словам:
Win32 - <em>данная программа распространяется на платформе Windows (32-х битная).</em>
Malware - <em>вредоносная программа</em>
Gen - <em>генератор чего то (лицензий, паролей и т.д.)</em>
Следовательно делаем вывод, что это вероятнее всего генератор паролей (KeyGen).
Номер кратен 5 - это строки номер 5, 10, 15 и 20, т.е. от 5 с шагом 5.
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (m,n):=(20,10);
Writeln('*** Исходный массив ***');
var E:=MatrRandom(m,n,1,99);
E.Println(3); Writeln(3*E.ColCount*'-');
var p:=BigInteger(1);
ForEach var i in Range(4,m-1,5) do
p:=E.Row(i).Where(t->t>4).Aggregate(p,(x,y)->x*y);
Println('Произведение равно',p)
end.
SCREEN 7
pi = 3.14
CIRCLE (100, 100), 60, 15, pi / 2, pi * 1.5
CIRCLE (160, 100), 60 * SQR(2), 15, pi * 3 / 4, pi * 5 / 4
<span>PAINT (45, 100), 14, 15</span>