<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadlnInteger;
var a:=ReadArrString(n);
Writeln(40*'-');
foreach var w in a do begin
var wa:=w.ToWords;
if wa[2].ToInteger>100 then Writeln(w)
end
end.
Var s:string; p1,p2:integer;
begin
writeln('Введите слово:');
readln(s);
p1:=pos('жы',s);
p2:=pos('шы',s);
if (p1=0)and(p2=0) then writeln('Ошибок не замечено.');
if p1>0 then
begin
delete(s,p1,2);
insert('жи',s,p1);
writeln('Слово написано с ошибкой.');
writeln('Правильное написание - ',s);
end;
if p2>0 then
begin
delete(s,p2,2);
insert('ши',s,p2);
writeln('Слово написано с ошибкой.');
writeln('Правильное написание - ',s);
end;
end.
Var
s: real;
begin
write('Введите сумму покупки: ');
readln(s);
if s > 1000 then
s := s * (1 - 0.05)
else if s > 500 then
s := s * (1 - 0.03);
writeln('Сумма покупки с учетом скидки: ', s);
end.
129(10) = 81(16) = 201(8) = 10000001(2)
257(10) = 101(16) = 401(8) =100000001(2)
1023(10) = 3FF(16) = 1777(8) =1111111111(2)