Ctrl+A-Выделить док. целиком
Ctrl+C-Копировать выдел. файл
Ctrl+V-Вставить из буфера обмена копирован./вырезан. фрагмент
Ctrl+X-Вырезать выдел. фрагмент
Var k, j, sum:integer;
n,i:longint;
prev,cur, found :boolean;
s:string;
Begin
read(n,k);
for i := 2 to n do begin
s := inttostr(i);
sum := 0;
for j := 1 to length(s) do
sum := sum + strtoint(s[j]);
cur := (sum mod k) = 0;
found := found or (prev and cur);
if prev and cur then
writeln(i - 1,' ',i);
prev := cur;
end;
if not found then writeln('NO');
End.
1.Uses crt;
Var
a:array[10..20] of integer;
i:Integer;
begin
clrscr;
for i:=10 to 20 do
a[i]:=i;
for i:=10 to 20 do
writeln (a[i],',');
End.
2. Var
b:array[2..8] of real;