Если тебе нужно узнать значение переменной s, то выполним следующее:
От-4до 1 делай:
s присвоить значение её же + i(позиция, в которой сейчас находится цикл);
Таким образом:
s + i : 0 + -4= -4
s + i : -4 + -3= -7
s + i : -7 + -2= -9
s + i : -9 + -1= -10
s + i : -10 + 0= -10
<span>s + i: -10 + 1= -9
Итог: s= - 9.</span>
В первом 2х4. во втором 6х3 в третьем 7х5 (но, это не точно)
var a:array[1..100] of integer;
s,i: integer;
begin
for i:=1 to 10 do begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to 10 do begin
if a[i] mod 3 = 0 then begin
s:=s+a[i];
end; end;
writeln('summa chisel kratnx 3 = ', s);
readln;
end.
Type
Digits=array[0..9] of byte;
procedure RD(n:integer; var ad:Digits; var f:boolean);
{ заполняет массив количеством повторений цифр числа n
f=True, если хоть одна цифра повторяется }
var
i,d:byte;
begin
for i:=0 to 9 do ad[i]:=0;
f:=False;
while n>0 do begin
d:=n mod 10;
ad[d]:=ad[d]+1;
if ad[d]>1 then f:=True;
n:=n div 10
end;
end;
var
i,j,n,k:integer;
a:Digits;
f:boolean;
begin
for i:=1 to 2 do begin
Write('n = '); Read(n);
n:=Abs(n); { против ввода отрицательных }
RD(n,a,f);
if f then begin
Write('Встречаются больше одного раза цифры ');
for j:=0 to 9 do
if a[j]>1 then Write(j,' ');
Writeln
end
else Writeln('Все цифры в числе уникальны')
end
end.
<u>Пример</u>
n = 153632
Встречаются больше одного раза цифры 3
n = 1030041
Встречаются больше одного раза цифры 0 1
var
s,sr:string;
c:char;
i,j,n,p:byte;
begin
for i:=1 to 2 do begin
Write('Введите строку: '); Readln(s);
n:=Length(s);
sr:='';
for j:=1 to n do begin
c:=s[j];
if Pos(c,Copy(s,j+1,n-j))>0 then sr:=sr+c+' ';
end;
if Length(sr)>0 then Writeln('Встречаются больше одного раза символы ',sr)
else Writeln('Все символы в строке уникальны')
end
end.
<u>Пример</u>
Введите строку: информатика
Встречаются больше одного раза символы и а
Введите строку: проблема
Все символы в строке уникальны
21,201,20,200,2011,2000,2001,2021.