Ответы
Ответ дал:
0
uses crt;
var i,s:integer;
begin
for i:=1000 to 9999 do
begin
s:=strtoint(inttostr(i)[1])+strtoint(inttostr(i)[2])+strtoint(inttostr(i)[3])+strtoint(inttostr(i)[4]);
if (s>15) and (s mod 3=0) then
write(i,' ');
end;
end.
var i,s:integer;
begin
for i:=1000 to 9999 do
begin
s:=strtoint(inttostr(i)[1])+strtoint(inttostr(i)[2])+strtoint(inttostr(i)[3])+strtoint(inttostr(i)[4]);
if (s>15) and (s mod 3=0) then
write(i,' ');
end;
end.
Вас заинтересует
1 год назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад
9 лет назад