615 чисел. Вот программа на Паскале ABC по их вычислению: Program bilet; var i:integer; s:string; begin for i:=1000 to 9999 do begin s:=IntToStr(i); if StrToInt(s[1])+StrToInt(s[2])=StrToInt(s[3])+StrToInt(s[4]) then writeln(i); end; end.
Интерфе́йс (англ. interface — сопряжение, поверхность раздела, перегородка) — совокупность возможностей и методов взаимодействия двух систем (любых, а не обязательно являющиеся вычислительными или информационными), устройств или программ для обмена информацией между ними, определённая их характеристиками, характеристиками соединения, сигналов обмена и т. п. В случае, если одна из взаимодействующих систем — человек, чаще говорят лишь о второй системе, то есть об интерфейсе той системы, с которой человек взаимодействует.
Интерфе́йс (англ. interface — сопряжение, поверхность раздела, перегородка) — совокупность возможностей и методов взаимодействия двух систем (любых, а не обязательно являющиеся вычислительными или информационными), устройств или программ для обмена информацией между ними, определённая их характеристиками, характеристиками соединения, сигналов обмена и т. п. В случае, если одна из взаимодействующих систем — человек, чаще говорят лишь о второй системе, то есть об интерфейсе той системы, с которой человек взаимодействует.
Вот программа на Паскале ABC по их вычислению:
Program bilet;
var i:integer;
s:string;
begin
for i:=1000 to 9999 do begin
s:=IntToStr(i);
if StrToInt(s[1])+StrToInt(s[2])=StrToInt(s[3])+StrToInt(s[4]) then writeln(i);
end;
end.