Var
n,m,A,S:integer;
Begin
Write('n = ');ReadLn(n);
Write('m = ');ReadLn(m);
For m:= n to m do
Begin
S:=0;
A:=m;
While A > 0 do
Begin
S:=S+A mod 10;
A:=A div 10
End;
if S = 12 then Write(m,' ')
End;
End.
program test;
var number: integer;
begin
write('Enter the number: ');
readln(number);
case number mod 10 of
1: writeln(number, ' рубль');
2, 3, 4: writeln(number, ' рубля');
else
writeln(number, ' рублей')
end;
readln;
end.
Я понимаю это как <span>обработку информации с целью приведения ее к определенному виду.</span>
<span>D) в документ можно добавить сколько угодно декоративных текстов.
</span>
Var a: array[1..7] of real;
k, n: integer;
begin
readln(k, n);
for i:=1 to 7 do begin
read(a[i]);
if a[i]<>0 then if a[i]>0 then a[i]:=a[i]-a[k] else a[i]:=a[i]-a[n];
write(a[i], ' ');