Const N=10;
var i, b, s: integer;
a: string;
begin
readln(b);
a := inttostr(b);
for i := 1 to length(a) do
if (strtoint(a[i]) > s) then
s := strtoint(a[i])
else
s:=10;
if (s = 10) then writeln('No') else writeln('Yes');
<span>end.
Удачи =)</span>
<em><u>Pascal:</u></em>
var code:byte;
begin
write ('Code = ');
readln (code);
writeln (chr(pred(code)));
end.
<em><u>C++:</u></em>
#include <iostream>
using namespace std;
int main()
{
int code;
cout <<"Code: ";
cin >>code;
char ch=static_cast<char>(code);
cout <<ch <<endl;
return 0;
<span>}</span>
//PascalABC.NET
power((c + d), 2) / (sqrt(2 * x));
power((c + d), 2) / (sqrt(2) * x);
Определим общее количество байт в тексте
900*2=1800
определим, сколько килобайт информации будет
1800/1024= 1.7578125
округляем, получится
1.76
ответ 1.76 Кбайт информации
begin
var n := ReadInteger;
if n mod 25 = 0 then
Println(25, n div 25)
else
begin
var (n1, n2) := (24, 25);
var r: integer;
repeat
for var i := 1 to n div n1 do
begin
r := (n - n1 * i) mod n2;
if r = 0 then
begin
Println(n1, i + (n - n1 * i) div n2);
exit
end;
end;
Dec(n1);
Dec(n2);
until n1 = 0;
end;
end.
===== PascalABC.NET =====