var a,b,c,d,e,f:integer;
begin
for a:=100 to 999 do begin
b:=a div 100;
c:=a mod 10;
d:=a mod 100;
e:=d div 10;
f:=c+b+e;
if (f mod 7=0) and (a mod 7=0) then
writeln(a,' ');
end;
end.
-18 | 36 | 0 | -3 | 4 | 15 |
-18 - 1 элемент в массиве с индексом 0 (потому что это первый элемент в массиве).
36 - 2 элемент в массиве с индексом 1 (потому что это второй элемент в массиве).
0 - 3 элемент в массиве с индексом 2 (потому что это третий элемент в массиве).
-3 - 4 элемент в массиве с индексом 3 (потому что это четвертый элемент в массиве).
4 - 5 элемент в массиве с индексом 4 (потому что это пятый элемент в массиве).
15 - 6 элемент в массиве с индексом 5 (потому что это шестой элемент в массиве).
Var s:string;
begin
s:='тестирование';
s:=s[8]+s[9]+s[1]+s[9];
writeln(s);
<span>end.</span>
program
week;
var k,n:
integer;
begin
<span> writeln ('Input k (1<=k<=365) : ');</span>
<span> readln (k); </span>
<span> if (k mod 7=0) then n:=0</span>
<span> else n:=k mod 7;</span>
<span> writeln ('n= ',n);</span>
<span>end.</span>