program n_1;
uses crt;
var
n: longint;
k: integer;
function Sym(n: integer): char;
begin
case n of
0..9: Sym := chr(48 + n);
10..36: Sym := chr(55 + n);
end;
end;
function funct(n: longint; k: integer): string;
var
st: string;
begin
st := '';
if n = 0 then st := '0' else
begin
while n >= 1 do
begin
st := Sym(n mod k) + st;
n := n div k;
end;
end;
DecToX := st;
end;
begin
readln(n);
repeat
readln(k);
until (2 <= k) and (k <= 36);
writeln(funct(n, k));
end.
<u>// PascalABC.NET 3.2, сборка 1436 от 01.05.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var str:='Дана строка, в которой содержится осмысленное текстовое сообщение. '+
'Слова сообщения разделяются пробелами и знаками препинания'+NewLine;
var podstr:='ния'; //подстрока
var temp:=str.Split.Where(i->pos(podstr,i)>0);
Writeln(str);
foreach var word in temp do Print(word)
end.
Var p,a,b,c,d:integer;
Begin
Writeln('Введите A, B, C, D!');
Readln(a,b,c,d);
P:=a+b+c+d;
Writeln('Периметр = ', p);
<span>End.</span>
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a:int64;
Read(a);
(a = 2 ? -1 : (a * a + 1) div 2).Println
end.
<h3>Пример</h3><h3>13</h3><h3>85 </h3>
320*256=81920 пикселей.
Ответ:81920 пикселей.